Заполнить массив (с клавиатуры) и вывести его на экран м[1..9] числами 3,4,7,9,19,23,24,27,39. вывести числа, кратные 3
217
385
Ответы на вопрос:
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.
Популярно: Информатика
-
nikitkaapalkov16.02.2020 14:18
-
nastjaivanova2006.03.2021 09:06
-
gabdrahmanovaafyun27.12.2022 07:24
-
vladrifeyt105.05.2021 10:49
-
Viktor1510222.05.2022 10:31
-
rejnmasha201816.04.2022 01:54
-
ANiTEZ04.08.2021 11:21
-
Няшня08.09.2021 23:42
-
Carroty1316.02.2023 18:24
-
McКлей10.04.2023 06:27