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

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

Question

Информатика

Васяка

13 мая, 18:54

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

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

+2

Ответы (2)

Знаете ответ?

Петряша · Answer 1

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

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.

Галата · Answer 2

A : = 2.0;

i : = 1;

while (a < 20) do

begin

a : = a + a + 0.8;

inc (i) ;

end;

writeln (i) ;

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

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

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