Cod sursa(job #801976)
| Utilizator |  Kovacs Patrik patrix |
Data | 25 octombrie 2012 16:01:34 |
|---|---|---|---|
| Problema | Fractii | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.34 kb |
program infoarena;
var p,q,n,d,a,b:longint;
begin
writeln('Introduceti numarul natural n');
readln(n);
d:=0;
for p:=1 to n do begin
for q:=1 to n do begin
a:=p;
b:=q;
while a<>b do begin
if a>b then a:=a-b
else b:=b-a;
end;
if a=1 then d:=d+1;
end;
end;
write('In sir sunt ');
write(d);
writeln(' de fractii');
readln;
end.