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