Question

помогите пожалуйста написать программу Паскаль Задана арифметическая прогрессия 2; 2.8 ... . сколько членов прогрессии нужно сложить чтобы полученная сумма стала больше 20
​

Answer 1

Ответ:

var x,s,k:real;

begin

 x:=2;

 While s<=20 do

   begin

   s:=s+x;

   k:=k+1;

   x:=x+0.8;

   end;

write(k);

end.

Объяснение: