Ответы на вопрос:
Program test; var a, b, c, d, num, sum: integer; begin write('введите четырехзначное число: '); readln(num); a : = num div 1000; b : = num div 100; b : = b mod 10; c : = num div 10; c : = c mod 10; d : = num mod 10; sum : = a + b + c + d; if (sum mod 2 = 0) then begin writeln(); writeln('yes'); end else begin writeln(); writeln('no'); end; end.
Популярно: Информатика
-
olgagolova200708.08.2020 18:47
-
kristinka20000000526.02.2021 11:11
-
valerapolnikov228.02.2020 05:03
-
Tkaiem20.08.2022 15:07
-
danilsartakov05.08.2020 06:32
-
Покрасьон26.04.2022 04:25
-
nikitaaleksandrov09.05.2022 10:06
-
Айдана55л02.10.2022 12:46
-
Makarzzz13.12.2022 14:44
-
Nikita6756627.06.2023 06:56