Question

Дана последовательность чисел 5,9,13,17........Сколько слагаемых следует взять чтобы получить сумму равную 3164.Составьте программу для паскаль и блок схему,через систему Writeln do

Answer 1

Var x,i:integer;
begin
x:=5;
i:=1;
while (x<>3165) do begin
x:=x+4;
i:=i+1;
end;
writeln(i);
end.