Составить программу вычисления значения выражения 1+1/2+1/3+…+1/20. В данном случае целесообразно организовать цикл с параметром, изменяющимся от 1 до 20, то есть шаг изменения параметра равен +1.
Решение
Обозначим:
y — очередное значение суммы дробей;
n — параметр цикла.
Учитывая все это составим программу.
Код:
program Vychislenie_vyrazheniya;
var n: integer;
y: real;
begin
y:=0;
for n:=1 to 20 do y:=y+1/n;
wtiteln(‘Ответ: y= ‘, y);
end.