Заполнить массив (с клавиатуры) и вывести его на экран М[1..9] числами 3,4,7,9,19,23,24,27,39.
Заполнить массив (с клавиатуры) и вывести его на экран
М[1..9] числами 3,4,7,9,19,23,24,27,39.Вывести числа, кратные 3
Гость
Ответ(ы) на вопрос:
Гость Var i: integer;
m: array[1..9] of integer;
begin
for i := 1 to 9 do
readln(m[i]);
for i := 1 to 9 do
if(m[i] mod 3 = 0) then write(m[i]:3);
end.
Не нашли ответ?
Похожие вопросы