Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Дано трехзначное число получить новой число полученное при прочтени его цисел с права налево

Ответ оставил Гость

Var
  a,b:integer;
begin
  write(Введите трехзначное число );
  readln(a);
  b:=(a mod 10)*100 +((a div 10)mod 10)*10 + a div 100;
  writeln(b);
end.

Тестовое решение:
Введите трехзначное число 456
654