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

Ответы 1

  • //PascalABS.netvar 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.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years