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, что даст трехкратное повторение исходного числа.