Вариант 8

Дано трёхзначное натуральное число. Получить другое натуральное число, в котором порядок цифр изменён на противоположный. Как будет выглядеть эта программа на языке паскаль?

Program swap

var a,b,c,n,m : integer;

begin

readln(n);

a:=n mod 10;

m:=n-a;

n:=m/10;

b:=n mod 10;

m:=n-b;

c:=m/10;

m:=a*100+b*10+c;

writeln('Ответ:', n);

readln;

end