Question

Паскаль. 1) Дано трехзначное число, нужно найти число, полученное при прочтении его цифр справа налево. 2) Дано трехзначное число. В нем зачеркнули последнюю справа цифру и приписали ее в начале. Найти полученное число. 3) Дано трехзначное число. Найти число, полученное при перестановке первой и второй цифр заданного числа.

Answer 1

Var
    n, n1, n2, n3: integer;

begin
    write('Введите трехзначное число: ');
    readln(n);
    if not ((n >= 100 ) and (n <= 999)) then writeln('Не верный вводд числа')
    else
    begin
        n1 := n div 100;
        n2 := n div 10 mod 10;
        n3 := n mod 10;
        
        writeln('1 - ', n3, n2, n1);
        writeln('2 - ', n3, n1, n2);
        writeln('3 - ', n2, n1, n3);
    end;
end.

Answer 2

Задача 1: Поиск числа, полученного при прочтении цифр справа налево

Для решения этой задачи вам понадобится разделить трехзначное число на отдельные цифры, а затем объединить их в обратном порядке.

Вот алгоритм решения задачи:

1. Введите трехзначное число. 2. Разделите число на отдельные цифры, используя операцию деления нацело (`div`) и остаток от деления (`mod`). 3. Получите отдельные цифры, используя остаток от деления на 10. 4. Объедините цифры в обратном порядке, умножая каждую цифру на степень 10, соответствующую ее позиции. 5. Полученное число будет результатом.

Вот пример кода на языке Pascal, решающего эту задачу:

program ReverseDigits;

var
  number, reversedNumber: Integer;
  digit1, digit2, digit3: Integer;

begin
  Write('Введите трехзначное число: ');
  Readln(number);

// Получение цифр
  digit3 := number mod 10;
  number := number div 10;
  digit2 := number mod 10;
  number := number div 10;
  digit1 := number mod 10;

// Объединение цифр в обратном порядке
  reversedNumber := digit3 * 100 + digit2 * 10 + digit1;

// Вывод результата
  Writeln('Число, полученное при прочтении цифр справа налево: ', reversedNumber);
end.

Задача 2: Поиск числа, полученного при приписывании последней цифры в начале

Для решения этой задачи вам также понадобится разделить трехзначное число на отдельные цифры и объединить их в нужном порядке.

Вот алгоритм решения задачи:

1. Введите трехзначное число. 2. Разделите число на отдельные цифры, используя операцию деления нацело (`div`) и остаток от деления (`mod`). 3. Получите отдельные цифры, используя остаток от деления на 10. 4. Объедините цифры в новом порядке, приписав последнюю цифру в начале. 5. Полученное число будет результатом.

Вот пример кода на языке Pascal, решающего эту задачу:

program PrependLastDigit;

var
  number, transformedNumber: Integer;
  digit1, digit2, digit3: Integer;

begin
  Write('Введите трехзначное число: ');
  Readln(number);

// Получение цифр
  digit3 := number mod 10;
  number := number div 10;
  digit2 := number mod 10;
  number := number div 10;
  digit1 := number mod 10;

// Объединение цифр в новом порядке
  transformedNumber := digit3 * 100 + digit1 * 10 + digit2;

// Вывод результата
  Writeln('Полученное число: ', transformedNumber);
end.

Задача 3: Поиск числа, полученного при перестановке первой и второй цифр

Для решения этой задачи вам потребуется сохранить значения первой и второй цифр, затем поменять их местами и объединить с третьей цифрой.

Вот алгоритм решения задачи:

1. Введите трехзначное число. 2. Разделите число на отдельные цифры, используя операцию деления нацело (`div`) и остаток от деления (`mod`). 3. Получите отдельные цифры, используя остаток от деления на 10. 4. Сохраните значения первой и второй цифр. 5. Поменяйте местами значения первой и второй цифр. 6. Объедините цифры в новом порядке. 7. Полученное число будет результатом.

Вот пример кода на языке Pascal, решающего эту задачу:

program SwapDigits;

var
  number, transformedNumber: Integer;
  digit1, digit2, digit3: Integer;

begin
  Write('Введите трехзначное число: ');
  Readln(number);

// Получение цифр
  digit3 := number mod 10;
  number := number div 10;
  digit2 := number mod 10;
  number := number div 10;
  digit1 := number mod 10;

// Поменять местами первую и вторую цифры
  transformedNumber := digit2 * 100 + digit1 * 10 + digit3;

// Вывод результата
  Writeln('Полученное число: ', transformedNumber);
end.

Надеюсь, эти решения помогут вам разобраться с задачами на работу с трехзначными числами в языке Pascal. Если у вас возникнут дополнительные вопросы, не стесняйтесь задавать!