Cod sursa(job #1636305)
| Utilizator |  Negrescu Cristian Cryfun |
Data | 7 martie 2016 06:01:11 |
|---|---|---|---|
| Problema | Fractii | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.3 kb |
Program fractie;
var x,i,j,a,n:longint;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
n:=9;
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.