Cod sursa(job #2338190)
| Utilizator |  Cristin Druta MrCriss |
Data | 7 februarie 2019 10:27:21 |
|---|---|---|---|
| Problema | Fractii | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.33 kb |
program loc;
var se:set of real;
n,k,l,i,j:integer;
s:real;
g,f:text;
begin
assign(g,'fractii.in');
assign(f,'fractii.out');
reset(g);
rewrite(f);
readln(g,n);
for i:=1 to n do begin
for j:=1 to n do begin
s:=i/j;
if s in se then else begin include(se,s); inc(k); end;
end;
end;
writeln(f,k);
end.