Дана арифметическая прогрессии 2, 6, 10, 14... Записать пронрамму опрлеления номера...

Question

Дана арифметическая прогрессии 2, 6, 10, 14... Записать пронрамму опрлеления номера первого члена прогрессии, превысившего заданное число В. Вывести искомый номер и все члены прогрессии.

Answer 1

//PascalABS.net

var count,a,b:integer;
begin
  readln(b);
  count:=1;
  a:=2;
  repeat
    write(a:5);
    a:=a+4;
    count:=count+1;    
  until a>b;
  writeln(a:5);
  writeln('Номер следующего члена прогреммии ',count);
end.