Найти сумму ряда 1+1/2+1/3+...+1/50(for) Выходные данные :вывести сумму ряда.
Найти сумму ряда 1+1/2+1/3+...+1/50(for)
Выходные данные :вывести сумму ряда.
Гость
Ответ(ы) на вопрос:
ГостьЯ надеюсь вы в 5 классе ...
var i: integer;
sum:real;
begin
sum:=0;
for i:=1 to 50 do
sum:=sum+1/i;
writeln(sum);
end.
Не нашли ответ?
Похожие вопросы