Епимах
5 год назад
Пожалуйста посчитайте пожалуйста составьте программу в Паскале АВС1/1 + 1/2 + 1/3 + 1/4 + ...... + 1/37
ОТВЕТЫ
Desislava
Oct 24, 2020
var i: byte; sum: real;
begin
for i := 1 to 37 do
sum := sum + 1/i;
writeln(sum);
end.
begin
for i := 1 to 37 do
sum := sum + 1/i;
writeln(sum);
end.
477
Смежные вопросы:
