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

Question

Информатика

Пыж

17 августа, 23:31

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

+2

Ответы (1)

Знаете ответ?

Фронтина · Answer 1

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

i, num: integer;

begin

i : = 1;

while (i < = 9) do

begin

readln (num) ;

if (num mod 3 = 0) then

begin

arr[i] : = num;

i : = i + 1;

end;

end;

end.