Cod sursa(job #171381)
Utilizator | Stan Florin stanflorin | Data | 4 aprilie 2008 10:47:01 |
---|---|---|---|
Problema | Jocul Flip | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.34 kb |
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.