Cod sursa(job #60727)
Utilizator | Sirbu Alexandru al3csutzu | Data | 16 mai 2007 10:40:01 |
---|---|---|---|
Problema | Fractii | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.44 kb |
program fractie;
var a:array[1..10000] of real;
n,i,j,nr,k:longint;
f,g:text;
found:boolean;
begin
assign(f,'fractii.in'); assign(g,'fractii.out');
reset(f); rewrite(g);
read(f,n);
for i:=1 to n do
for j:=1 to n do
begin
found:=false;
for k:=1 to nr do
if a[k]=(i/j) then begin found:=true; break; end;
if not found then begin nr:=nr+1; a[nr]:=i/j; end;
end;
writeln(g,nr);
close(g); close(f);
end.