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

//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.

Оцени ответ

Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!