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

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