Question

Сосчитать 1+1/2+1/3+...1/99+1/100 .
В Pascale программу! ! Срочно! !!!

Answer 1

var i;integer;
s:real;
begin
s:=0;
for i:=1 to 100 do 
s:=s+1/i;

writeln(' Результат ', s);
end.