Question

Напишите пожалуйста программу с помщью Паскаля:Дана последовательность 5 9 13 17 21 25 29 33 37 41 45 49. Составьте программу для подсчета числа слагаемых сумма которых равна 324

Answer 1

var sum, i: integer;

 

 

begin

  sum := 5; i := 1;

  while (sum < 324) do

  begin

    sum := sum + 4;

    i := i + 1;

  end;

  writeln ('Слогаемых: ');

  write (i);

end.