Опять паскаль ...

Задана арифметическая прогрессия 2; 2,8; ... Сколько членов прогрессии нужно сложить, чтобы полученная сумма стала >20.

Question

Информатика

Витуша

16 января, 11:09

Опять паскаль ...

Задана арифметическая прогрессия 2; 2,8; ... Сколько членов прогрессии нужно сложить, чтобы полученная сумма стала >20.

+3

Ответы (2)

Знаете ответ на вопрос?

Епифаний · Answer 1

A : = 2.0;

i : = 1;

while (a < 20) do

begin

a : = a + a + 0.8;

inc (i) ;

end;

writeln (i) ;

Галла · Answer 2

Ну наверно так:

program qq;

var i:integer; sum, num:real;

Begin

num=2;

sum:=2;

i:=1;

while (sum<=20)

Begin

i:=i+1;

num:=num+0.8;

sum:=sum + (sum+num) ;

End;

Writeln ('Количество членов прогрессии: ', i) ;

End.

Опять паскаль ...Задана арифметическая прогрессия 2; 2,8; ... Сколько членов прогрессии нужно сложить, чтобы полученная сумма стала >20.

Опять паскаль ...

Задана арифметическая прогрессия 2; 2,8; ... Сколько членов прогрессии нужно сложить, чтобы полученная сумма стала >20.