Составьте программу, которая для произвольного натурального двузначного числа определяет число, образованное перестановкой цифр исходного числа.

Question

Информатика

Борюля

5 июня, 05:05

Составьте программу, которая для произвольного натурального двузначного числа определяет число, образованное перестановкой цифр исходного числа.

+5

Ответы (1)

Знаете ответ на вопрос?

Нинока · Answer 1

Var a, b, ab:integer;

Begin

write ('Введите двухзначное число - ') ; read (ab) ;

if (ab>=10) and (ab<=99) then

begin

a:=ab div 10;

b:=ab mod 10;

writeln ('После перестановки чисел у нас получилось: ', b, a) ;

end

else write ('Число ', ab,' не является двухзначным ') ;

End.