Запишите на языке Паскаль программу решения задачи:Дана последовательность чисел 5,9,13,17,... . Определите число слагаемых, сумма которых равна 324

Предыдущий
вопрос Следующий
вопрос

program SumOfNumbers;

var
sum, i, num, count: integer;

begin
sum := 0;
i := 5;
count := 0;

while sum < 324 do
begin
sum := sum + i;
i := i + 4;
count := count + 1;
end;

writeln('Number of terms: ', count);
end.