Дана арифметическая прогрессии 2, 6, 10, записать пронрамму опрлеления номера первого члена прогрессии, превысившего заданное число в. вывести искомый номер и все члены прогрессии.
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.
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.