Паскаль. Помогите исправить программу под эту формулу: 1 + (1 / (1+2)) + (1 / (1+2+3)) + (1 / (1+2+3+4)) + (1 / (1+2 + ... + n))

var

s : real;

i, n : integer;

begin

s : = 0;

read (n) ;

for i : = 1 to n do s : = s + 1 / i;

writeln (s) ;

end.

Правильный ответ на вопрос 👍 «Паскаль. Помогите исправить программу под эту формулу: 1 + (1 / (1+2)) + (1 / (1+2+3)) + (1 / (1+2+3+4)) + (1 / (1+2 + ... + n)) var s : ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!