4.8b

[blue_baron]

Prosim o radu.
Napíšte program na výpočet nasledujúceho súčtu pre zadanú vstupnú hodnotu n.
1/1*1/2*1/3*...*1/n

[admin]

program rad;
uses crt;
var suma:real;
i,n:integer;
begin
suma:=1;
writeln('zadaj n');
readln(n);
for i:=1 to n do
begin
suma:=suma*1/i;
end;
writeln(suma:5:10);
readln;
end.
{okomentuj, dopln!!!}