Помогите пожалуйста! Задана арифметическая прогрессия. 8,4; 6,2 … . Сколько членов...

Question

Помогите пожалуйста!
Задана арифметическая прогрессия. 8,4; 6,2 … . Сколько членов прогрессии нужно сложить, чтобы полученная сумма стала <0. На языке Паскаль надо

Answer 1

Var a,s: real;
     i: integer;
begin
  a:=8.4;
  s:=a;
  i:=1;
  repeat
     begin
       a:=a-2.2;
       s:=s+a;
       i:=i+1;
     end; 
  until s<0;<br>  write('число слагаемых = ',i);
end.