Исаия
6 год назад
Составьте программу вычисления суммы 1+1/2+1/3+1/4+....1/10 с использованием оператора (repeat) пожалуйста Пожалуйста посчитайте
ОТВЕТЫ
Надежда
Oct 24, 2020
var
k: integer;
s: real;
begin
s:=0;
k:=0;
repeat
k := k + 1;
s := s + 1/k;
until k = 10;
writeln(s);
end.
k: integer;
s: real;
begin
s:=0;
k:=0;
repeat
k := k + 1;
s := s + 1/k;
until k = 10;
writeln(s);
end.
558
Смежные вопросы:
