Question

С клавиатуры вводится трёхзначное число. Написать программу, которая составляет новое трёхзначное число, в котором правую цифру перенесли в начало числа. На языке Паскаль.

Answer 1

Программа:

program kukkeu;

var

x:string;

begin

writeln ('Введите 3-х значное число:');

readln (x);

writeln (x[3], x[1], x[2]);

end.

Объяснение:

Записываем число в виде строки, а не самого числа, затем меняем местами элементы строки.

Answer 2

Конечно, вот программа на языке Паскаль, которая выполняет указанное действие:

pascalCopy code
program RearrangeDigits;
var
  inputNumber, rearrangedNumber: integer;
  digit1, digit2, digit3: integer;
begin
  // Вводим трехзначное число с клавиатуры
  write('Введите трехзначное число: ');
  readln(inputNumber);

  // Проверяем, что введенное число действительно трехзначное
  if (inputNumber < 100) or (inputNumber > 999) then
  begin
    writeln('Пожалуйста, введите трехзначное число.');
    exit; // Завершаем программу
  end;

  // Разбиваем число на отдельные цифры
  digit1 := inputNumber div 100;
  digit2 := (inputNumber div 10) mod 10;
  digit3 := inputNumber mod 10;

  // Формируем новое число с переставленными цифрами
  rearrangedNumber := digit3 * 100 + digit1 * 10 + digit2;

  // Выводим новое число
  writeln('Новое число с переставленными цифрами: ', rearrangedNumber);
end.

Эта программа сначала проверяет, что введенное число действительно трехзначное, затем разбивает его на отдельные цифры, переставляет их местами и выводит новое число.