Ответы на вопрос:
Во-первых ты объявил переменные a1,a2 и т.д. как целые, а для целых чисел в паскале не определена операция "/" - деления. для них определена операция div - целочисленное деление, вот собственно и все, если заменить то твой код работает: var a,a1,a2,a3,a4: integer; begin write ('vv ch'); read (a); a1: = a div 1000; a2: = a div 100 mod 10; a3: = a div 10 mod 10; a4: = a mod 10; write (a1,a2,a3,a4); end.
Популярно: Математика
-
Танек4789628.08.2020 00:01
-
ghjAlina1118124.01.2022 06:42
-
полина213018.10.2020 02:36
-
Alyonaa20120213.04.2021 23:03
-
Мегамозг051105.03.2023 22:42
-
Oven46329.06.2021 22:29
-
Pro222216.05.2020 01:49
-
Мастер00823.03.2022 16:44
-
zero16118.02.2020 14:22
-
dima272703.10.2021 14:46