Составить программу вычисления значения выражения 1+1/2+1/3+…+1/20

Составить программу вычисления значения выражения 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.

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *

девятнадцать − 2 =