Анонимно

Написать программу на Паскале: Дано трехзначное число. В нем зачеркнули последнюю справа цифру и приписали ее в начале. Найти это число.

Ответ

Анонимно
Var
  A: integer;
Begin
  Write('Введите трёхзначное число: ');ReadLn(A);
  A := (A mod 10)*100 + (A div 10);
  WriteLn(A);
End.