Cod sursa(job #1636296)
| Utilizator |  Negrescu Cristian Cryfun |
Data | 7 martie 2016 02:02:47 |
|---|---|---|---|
| Problema | Fractii | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.32 kb |
Program fractie;
var x,i,j,a,n:integer;f:text;
begin
assign(f,'fractii.in'); reset(f);
readln(f,x);close(f);
For i:=1 to x do
For j:=1 to x do begin
IF i>=j then n:=j else n:=i;
while ((i mod n<>0)or(j mod n<>0)) do
dec(n);
If n=1 then inc(a); n:=0; end;
assign(f,'fractii.out'); rewrite(f); write(f,a); close(f);
end.