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.