Cod sursa(job #119351)
| Utilizator |  Petru Dimitriu PetruD |
Data | 30 decembrie 2007 19:00:41 |
|---|---|---|---|
| Problema | Fractii | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.34 kb |
var f:text;
i,j,n,nr,max:integer;
begin
assign (f,'fractii.in');
reset (f);
read (f,n);
for i:=1 to n do
for j:=1 to n do
begin
if i>j then max:=i else max:=j;
while not((j mod max=0) and (i mod max=0)) do
max:=max-1;
if max=1 then nr:=nr+1;
end;
close (f);
assign (f,'fractii.out');
rewrite (f);
write (f,nr);
close (f);
end.