Составьте программу, которая для произвольного натурального двузначного числа определяет число, образованное перестановкой цифр исходного числа.
Answers & Comments
Ulfhednar
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.
Answers & Comments
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.