Cod sursa(job #1870244)

Utilizator dragos.galeteanu2001Dragos Iulian dragos.galeteanu2001 Data 6 februarie 2017 15:16:58
Problema Fractii Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.29 kb
Raporteaza aceasta sursa 
#include <fstream>
using namespace std;
ifstream f1("fractii.in");
ofstream f2("fractii.out");
int N, P, Q, D, I, r, x, k=0;
int main()
{ f1>>N;
for (P=1; P<=N; P++)
for (Q=1; Q<=N; Q++)
{ D=P; I=Q; r=D%I;
while (r)
{ D=I; I=r; r=D%I; }
x=I;
if (x==1) k++; }
f2<<k;
return 0; }