PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var n := ReadInteger('Введите двухзначное число:');

 Print((2 * n * 10 + n) * 481)

end.

Пример

Введите двухзначное число: 37

373737

Объяснение

Пусть дано двухзначное число n. Проделаем с ним указанные действия.

Удвоить: 2n;

Приписать ноль справа (умножить на 10): 20n;

Прибавить исходное: 20n+n = 21n;

Умножить на 481: 21n·481 = 10101n = 010101n.

Понятно, что при двухзначном n на месте каждого 01 появится n, что даст трехкратное повторение исходного числа.