Напишите программу для решения с клавиатуры вводится - вопрос №94764642 от Foreveralone321 26.02.2021 05:04

Question

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

Foreveralone321 · Answer

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.