Информатика, опубликовано 2018-08-22 18:54:18 by Гость
Найти сумму ряда 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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.