Question

Для заданного числа N составьте программу вычисления суммы S=1+1/2+1/3+1/4+…+1/N, где N – натуральное число через repeat

Answer 1

program raf105;

var  

 i,n: integer;

 s: real;

begin

write('N = ');

readln(n);

repeat

 i:= i+1;

 s:= s+1/i;

until i=n;

writeln('Сумма: ',s);

end.

PascalABC 3.4.2