Ответы на вопрос:
Простая реализация без массива uses crt; var a, b, c, d, k: integer; begin readln(a, b, c, d); clrscr; if (a mod 5) = 0 then inc(k); if (b mod 5) = 0 then inc(k); if (c mod 5) = 0 then inc(k); if (d mod 5) = 0 then inc(k); writeln(k); end.
Популярно: Информатика
-
Timewinter20.08.2020 12:20
-
Kot1232109.06.2020 06:36
-
SuperKiri19.01.2020 12:30
-
mashakovalak23404.04.2021 12:23
-
Deadsun04.02.2020 08:58
-
hocoladka18.08.2021 08:56
-
Cill10925.06.2022 07:14
-
sofyaamosovap0cc8l30.09.2021 02:02
-
nazarpl622213.02.2023 03:30
-
ТомКаулитц23.02.2023 19:25