Вопрос Составьте программу на Паскале. Срочно нужно!! Заранее спасибо

[Bdfy1992]

Сколько чисел нужно взять в последовательности 1+1/3+1/5+1/7+...чтобы получить число большее 7?

 

[NOOBAS]

Так просто же, заводишь переменную, которая будет показывать знаменатель дроби, заводишь переменную для суммы последовательности и заводишь переменную счётчик. И крутишь в цикле, пока сумма не будет больше 7, к сумме прибавляешь элемент последовательности (1 делить на первую переменную), прибавляешь к первой переменной 2 и прибавляешь к счётчику 1.

 

[Loper]

Раньше помогал халявщикам. Теперь - надоело!

 

[ппппппп]

program p1; var i:integer; s:real; begin i:=0; s:=0; repeat i:=i+1; s:=s+1/(2*i-1) until s>7; writeln(i) end.

 

[hack]

program Anna; var k,n:longint; s:real; begin k:=-1; n:=0; s:=0; repeat n:=n+1; k:=k+2; s:=s+1/k until (s>7); writeln(n,,s) end. {Ответ здесь 337607, сумма при этом равна 7.00000179178...}