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