Cod sursa(job #17537)
| Utilizator |  Ursu Bogdan Gabriel gbrl_ursu |
Data | 16 februarie 2007 10:45:47 |
|---|---|---|---|
| Problema | Fractii | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.23 kb |
var f:text;
n,l,i,j:integer;
begin
assign(f,'frctii.in');
reset(f);
read(f,n);
close(f);
l:=0;
for i:=1 to n do
for j:=1 to n do
if i mod j>0 then inc(l);
assign(f,'date.out');
rewrite(f);
write(f,l);
close(f);
end.
