В трехзначном числе х зачеркнули 1 цифру.Когда оставшиеся число умножили ** 10,а...

Question

В трехзначном числе х зачеркнули 1 цифру.Когда оставшиеся число умножили на 10,а произведение сложили с первой цифрой числа х,то получилось 564.Найти х.
В Pasсal.

Answer 1

Var
  x, a, b, c, y: integer;

begin
  Write('Введите целое трехзначное положительное число ->');
  Readln(x);
  a := x mod 10;
  y := 100 * a + (x div 10);
  Writeln('Первоначальное число было: ', y);
  b := y mod 100;
  Writeln('Зачеркнули первую цифру: ', b);
  b := 10 * b;
  Writeln('Умножили на 10: ', b);
  b := b + (y div 100);
  Writeln('Прибавили зачеркнутую цифру: ', b);
  Writeln('И получили введенное нами число - результат')
end.

Тестовое решение:
Введите целое трехзначное положительное число ->183
Первоначальное число было: 318
Зачеркнули первую цифру: 18
Умножили на 10: 180
Прибавили зачеркнутую цифру: 183
И получили введенное нами число - результат

Comments

Спасибо)

---

Достаточно кнопочки)

---

мы не получили число 564

---

Так введите 564 и получите решение:
Введите целое трехзначное положительное число ->564
Первоначальное число было: 456
Зачеркнули первую цифру: 56
Умножили на 10: 560
Прибавили зачеркнутую цифру: 564
И получили введенное нами число - результат

---

Программа решает задачу с любым трехзначным числом