Напишите программку, дозволяющую ввести 9 частей, кратных 3. (через IF). Паскаль.

Напишите программу, позволяющую ввести 9 частей, кратных 3. (через IF). Паскаль. Массив.

Задать свой вопрос
1 ответ

var arr: array [1..9] of integer;

i, num: integer;

begin

i := 1;

while (i lt;= 9) do

 begin

   readln(num);

   if (num mod 3 = 0) then

     begin

       arr[i] := num;

       i := i + 1;

     end;

 end;

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт