Дано трёхзначное число K. Вывести ** экран число полученное при перестановке первой и...

Question

Дано трёхзначное число K. Вывести на экран число полученное при перестановке первой и последней цифр.

Answer 1

var a, b, c, d:integer;

begin

readln(a);

d:=(a mod  10) *100;

c:= (a div 10 mod 10)*10;

b:= a div 100;

a:=d+c+b;

writeln(a);

end.