Получить 10 случайных двузначных чисел и определить: четное число или нет. (паскаль)
256
331
Ответы на вопрос:
Program project; var i, n: integer; begin for i: =0 to 9 do begin readln(n); if (n mod 2 = 0) then writeln('чётное') else writeln('нечётное') end; end.
Популярно: Информатика
-
Shkolnik1234567891013.06.2023 09:10
-
aarianna08.03.2023 01:58
-
мопс17329.12.2022 10:48
-
maryanazarfdFj19.04.2021 21:05
-
Анц07.05.2023 18:04
-
olegmuslimov77828.12.2022 23:28
-
ban2005040824.09.2021 04:00
-
100Виктория10023.05.2021 09:25
-
Psix00704.07.2020 05:37
-
likaizmaylova17.04.2022 10:00