Ответы на вопрос:
Program AmongUs;
var x,a,b,c,d:integer;
begin
write('x=');readLn (x);
a:=x div 1000;
b:=x div 100 mod 10;
c:=x div 10 mod 10;
d:=x mod 10;
x:=d*1000+c*100+b*10+a;
writeLn('новое число=',x)
end.
Объяснение:
1) var x,a,b,c,d:intener; - неправильно написан тип данных (меняем intener на integer)
2) writeLn('новое число'=,x,) - неправильно стоит кавычка для вывода текста (переносим ' за = )
3) writeLn('новое число'=,x,) - лишняя запятая после x (убираем)
Популярно: Информатика
-
JackFollower20.11.2020 23:44
-
Valentinka07913.09.2020 04:36
-
nastya273522.09.2021 14:22
-
tanyajana30.07.2022 06:40
-
kizaru2813.02.2023 14:13
-
LYUBASHA8314.11.2021 00:43
-
asya160714.03.2022 22:52
-
КристинаВощевоз5421.03.2021 05:56
-
kamilaCOOL77716.08.2020 10:48
-
Лерапомогите116.12.2022 20:44