Cod sursa(job #240962)
Utilizator | berian grartian beriangratian | Data | 8 ianuarie 2009 22:54:22 |
---|---|---|---|
Problema | Fractii | Scor | 10 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.48 kb |
program frac;
var f,g:text;
n,i,s,j:longint;
function prim(a,b:longint):boolean;
var ok:boolean;
r:longint;
begin
ok:=true;
repeat
r:=a mod b;
a:=b;
b:=r;
until r=0;
if a=1 then
prim:=true
else
prim:=false;
end;
begin
assign(f,'fractii.in');
reset(f);
read(f,n);
close(f);
s:=0;
for i:= 1to n do
for j:=1 to n do
if prim(i,j)=true then
inc(s);
assign(f,'fractii.out');
rewrite(f);
write(f,s);
close(f);
end.