Пусть в переменной С, имеющей тип integer, записано пятизначное число. Запишите в...

Question

Пусть в переменной С, имеющей тип integer, записано пятизначное число. Запишите в переменную X, имеющую тип integer, число, полученное перестановкой цифр данного числа в обратном порядке. Например, если дано число 61047, то в ответе получается 74016. Если пользуетесь дополнительными переменными, то они все имеют тип integer.

Answer 1

program n_1;
var a, b, c, d, e, X, W:integer;
begin
writeln('Введите число');
readln(X);
a:=X div 10000;
b:=X mod 10000 div 1000;
c:=X mod 1000 div 100;
d:=X mod 100 div 10;
e:=X mod 10;
W:=e*10000+d*1000+c*100+b*10+a;
writeln('W=',W);
end.