Регистрация
Войти
Стать экспертом Правила
Информатика

вивести число x якщо початкове її значення дорівнює заданому числу а кожне наступне збільшується на 4 поки х не буде перевищувати 30.​

ОТВЕТЫ

Снизу

program Programma1;

var A:integer;

begin

readln(A);

while A <= 30 do

begin

   write (A, ' ');

   A := A + 4;

   end;

end.

505
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам