Question

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

Answer 1

var a,s,k:integer;
begin
a:=5;
k:=0;
s:=0;
repeat
s:=s+a;
a:=a+4;
k:=k+1;
until s=324;
writeln (k)
end.