Информатика, опубликовано 2018-08-22 22:54:44 by Гость

Сколько слагаемых должно быть в сумме 1+ 1/2+1/3+..+ 1/N, чтобы сумма оказалась больше 5

Ответ оставил Гость

Var N :integer;
var A: real;
begin
A:=0;
N:=0;
while (A) N:=N+1;
A:=A+(1/N);
end;
WriteLn (Всего ,N, слагаемых);
end.

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.