Cod sursa(job #304778)
| Utilizator |  Flavius flaviusone |
Data | 15 aprilie 2009 12:39:27 |
|---|---|---|---|
| Problema | Fractii | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.34 kb |
type vector=array [1..100] of real;
var a:vector;
i,j,n,p,nr,g,out:integer;
begin
readln(nr);
p:=1; n:=0;
for i:=1 to nr do
for j:=1 to nr do begin
a[p]:=i/j;
p:=p+1 ;
n:=n+1;
end;
for i:=1 to n-1 do
for j:=i+1 to n do begin
if a[i] = a[j] then
for g:=j to n - 1 do
a[j]:=a[j+1];
n:=n-1;
end;
out:=n;
writeln(out);
readln;
end.