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

0 интересует 0 не интересует
76 просмотров

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


спросил от (12 баллов) в категории Информатика
1 Ответ
0 интересует 0 не интересует
ответил от (64 баллов)

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

var y:real; n:integer;
begin
readln(n);
repeat
y:=y+1/n;
n:=n-1;
until n=0;
writeln(y);
end.

...