Вычислить значение переменной y при заданном N: 1/1+1/2+1/3 + ... + 1/N, используя оператор Repeat (паскаль)

Question

Ираидка

13 декабря, 12:49

+1

Ответы (1)

Знаете ответ?

Полинария · Answer 1

Если я правильно понял задание, то вот:

var y:real; n:integer;

begin

readln (n) ;

repeat

y:=y+1/n;

n:=n-1;

until n=0;

writeln (y) ;

end.