Составьте программу вычисления суммы 1+1/2+1/3+1/4+….1/10 с использованием оператора (repeat) пожалуйста решите

Ответ учителя по предмету Информатика

var

   k: integer;

   s: real;

begin

   s:=0;

   k:=0;

   repeat

      k := k + 1;

      s := s + 1/k;

   until k = 10;

   writeln(s);

end.

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

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

Похожие вопросы от пользователей