Question

Напишите программу для решения задачи с клавиатуры вводится целое 2-значное число ,если число положительное то полочить новое число Z c перестановкой цифр исходного числа и вывести число Z на экран div  и mod

Answer 1

PascalABC.NET 3.4.2, сборка 1847 от 28.10.2018

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

begin

 var n := ReadInteger;

 if n > 0 then

 begin

   var z := 10 * (n mod 10) + n div 10;

   z.Println

 end

end.