Найти сумму 1/2+2/3+3/4++29/30 - Pascal ABC
Формулировка задачи:
Найти сумму 1/2+2/3+3/4+... +29/30
Решение задачи: «Найти сумму 1/2+2/3+3/4++29/30»
textual
Листинг программы
var i:integer;
s:real;
begin
s:=0;
for i:=1 to 29 do
s:=s+i/(i+1);
write('S=',s:0:3)
end.
Объяснение кода листинга программы
В данном коде используется цикл for, который выполняется 29 раз. На каждой итерации значение переменной i увеличивается на единицу и вычисляется значение выражения i/(i+1). Это выражение представляет собой дробь, где числитель равен i, а знаменатель равен i+1. Полученное значение добавляется к переменной s. В конце выполнения цикла выводится значение переменной s с помощью функции write. Значение переменной s будет равно сумме всех чисел от 1 до 29, делённой на 30.