В turbo pascal: Дано трехзначное число. Написать программу осуществляющую вывод этого...

Question

В turbo pascal: Дано трехзначное число. Написать программу осуществляющую вывод этого числа в обратном порядке

Answer 1

Program up1;
var a,w,e,q,r:integer;
begin
write('введите трехзначное число');
read(a);
q:=(a mod 10)*100;
w:=((a mod 10) mod 10)*10;
e:=a div 100;
r:=q+w+e;
write(r);
end.