Найти сумму ряда 1+1/2+1/3++1/50(for) выходные данные : вывести сумму ряда.

ноди1 ноди1    3   08.06.2019 03:40    2

Ответы
StepanDor StepanDor  01.10.2020 21:57
Я надеюсь вы в 5 классе ... 
var  i: integer; 
sum:real;
begin
sum:=0; 
for i:=1 to 50 do     
sum:=sum+1/i;
writeln(sum);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика