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

Question

Творимир

6 ноября, 18:51

+3

Ответы (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.