Написать программу которая вычислит сумму 1+ ¹/₂ + ¹/₃ + + ¹/₅₀

bsvetlana760 bsvetlana760    3   17.09.2019 04:40    0

Ответы
EtoBolshayaProblema EtoBolshayaProblema  07.10.2020 21:06
Var i:integer;
s:real;
begin
s:=0;
for i:=1 to 50 do 
s:=s+1/i;
write('Сумма: ',s:5:2);
readln;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика