Cod sursa(job #171379)

Utilizator stanflorinStan Florin stanflorin Data 4 aprilie 2008 10:32:09
Problema Fractii Scor 10
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.34 kb
Raporteaza aceasta sursa 
var  f:text;
n,i,j,k:longint;
function cou(x,y:longint):longint;
begin
 if x mod y=0 then cou:=y
 else
 cou:=cou(y,x mod y);
end;
begin
assign(f,'fractii.in');
reset(f);
readln(f,n);
close(f);
for i:=1 to n do
for j:=1 to n do
 if cou(i,j)=1 then inc(k);
 assign(f,'fractii.out');
 rewrite(f);
 writeln(f,k);
 close(f);
 end.