Cod sursa(job #448116)
Utilizator | Data | 2 mai 2010 19:09:30 | |
---|---|---|---|
Problema | Fractii | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.48 kb |
var f,g:text;
nr,n,i,j:integer;
function prime(x,y:integer):boolean;
begin
while x<>y do
if x> y then
x:=x-y
else
y:=y-x;
if x=1 then
prime :=true
else
prime:= false;
end;
begin
assign(f,'fractii.in'); reset(f);
assign(g,'fractii.out');rewrite(g);
readln(f,n); nr:=0;
for i:=1 to n do
for j:=1 to n do
if (prime(i,j)) then
inc(nr);
writeln(g,nr);
close(g);close(f);
end.