Ответы на вопрос:
Var n, i: integer; begin n : = 0; for i : = 1 to 9999 do if i mod 10 + i div 10 mod 10 = i div 100 mod 10 + i div 1000 then n : = n + 1; writeln(n); end.
Популярно: Информатика
-
Ангелок200716.06.2022 20:03
-
Aruzhan012107.05.2022 04:23
-
Boom11111111111109.01.2023 16:14
-
ivanychboss19.02.2020 17:01
-
larsab14.02.2020 18:30
-
umos26.06.2023 21:22
-
Ronaldinho200329.04.2020 08:17
-
sabina30027.02.2021 06:20
-
Marina5254724.05.2023 06:03
-
sasharudich22.09.2020 18:58