Cod sursa(job #1170534)
| Utilizator |  Gicu Nanii Gicu_21 |
Data | 13 aprilie 2014 19:40:43 |
|---|---|---|---|
| Problema | Fractii | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.32 kb |
program p1;
var a,j,i,p:integer;
begin
assign(input,'fractii.in');
reset(input);
read(input,a);
for j:=2 to a do
for i:=2 to a do
begin
if j mod i = 0 then if j div i > 1 then p:=p+2
else p:=p+1;
end;
p:=sqr(a)-p;
assign(output,'fractii.out');
rewrite(output);
writeln(output,p);
close(input);
close(output);
end.