Ответы на вопрос:
Var n, i, k: integer; f: boolean; begin readln(n); f : = false; for i : = 1 to n do begin k : = random(100); f : = f or (k mod 4 = 0); end; writeln(f); end.
Популярно: Информатика
-
Regina1357918.03.2023 23:13
-
tanechka2199816.03.2020 06:42
-
Tles23.05.2023 17:04
-
опчарготь06.12.2021 15:35
-
228778anonim22877814.04.2020 02:11
-
allan101201.12.2021 15:59
-
ТаНюша245128.06.2023 12:08
-
МаргаритаYTT01.03.2022 01:55
-
Knzke325.03.2022 14:10
-
alyvolkonskaya39463826.04.2020 13:20