Паскаль. Помогите исправить программу под эту формулу: 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 : ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы