Question

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

Answer 1

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

Answer 2

Я могу помочь вам с вашим вопросом о программировании на Паскале.

Написать программу на Паскале, которая решает задачу о трехзначном числе, можно следующим образом:

- Считать входное число из консоли и сохранить его в переменной типа integer. - Выделить последнюю цифру числа с помощью операции остатка от деления на 10 и сохранить ее в другой переменной. - Убрать последнюю цифру из числа с помощью операции целочисленного деления на 10 и сохранить результат в третьей переменной. - Сформировать новое число, переместив последнюю цифру в начало, с помощью операции умножения и сложения и сохранить его в четвертой переменной. - Вывести новое число на консоль с помощью процедуры writeln.

Пример кода на Паскале, который реализует этот алгоритм, можно посмотреть по ссылке [1](https://ru.stackoverflow.com/questions/815477/%d0%94%d0%b0%d0%bd%d0%be-%d1%82%d1%80%d0%b5%d1%85%d0%b7%d0%bd%d0%b0%d1%87%d0%bd%d0%be%d0%b5-%d1%87%d0%b8%d1%81%d0%bb%d0%be-%d0%92-%d0%bd%d0%b5%d0%bc-%d0%b7%d0%b0%d1%87%d0%b5%d1%80%d0%ba%d0%bd%d1%83%d0%bb%d0%b8-%d0%bf%d0%be%d1%81%d0%bb%d0%b5%d0%b4%d0%bd%d1%8e%d1%8e-%d1%81%d0%bf%d1%80%d0%b0%d0%b2%d0%b0-%d1%86%d0%b8%d1%84%d1%80%d1%83-%d0%b8-%d0%bf%d1%80%d0%b8%d0%bf%d0%b8%d1%81%d0%b0%d0%bb%d0%b8-%d0%b5%d0%b5-%d0%b2). Там же можно найти объяснения и комментарии к каждой строке кода.

Если вы хотите узнать больше о том, как работать с числами на Паскале, вы можете посмотреть другие примеры по ссылкам [2](https://www.cyberforum.ru/pascalabc/thread2229969.html) и [3](https://ru.stackoverflow.com/questions/313478/%D0%9F%D0%BE%D0%B8%D1%81%D0%BA-%D1%82%D1%80%D1%91%D1%85%D0%B7%D0%BD%D0%B0%D1%87%D0%BD%D1%8B%D1%85-%D1%87%D0%B8%D1%81%D0%B5%D0%BB-%D0%B2-%D0%BC%D0%B0%D1%81%D1%81%D0%B8%D0%B2%D0%B5-%D1%87%D0%B8%D1%81%D0%B5%D0%BB). Там вы найдете решения разных задач, связанных с числами, таких как проверка на четность, нахождение суммы цифр, перевод из одной системы счисления в другую и т.д.

Надеюсь, что моя помощь была полезна для вас. Если у вас есть еще вопросы, я буду рад ответить на них.