Дано двузначное число. Вывести число, полученное при перестановке цифр исходного числа в Паскале.
Дано двузначное число. Вывести число, полученное при перестановке цифр исходного числа в Паскале.
Используем div и mod. Пример:
Исходное число 45:
Число1 = 4, получаем от 45 div 10
Число2 = 5, получаем от 45 mod 10
Перестановка =Число2*10 + Число1=5*10+4=54
program Per_Num1_Num2_Task;
// Дано двузначное число. Вывести число, полученное
// при перестановке цифр исходного числа.
var
i_NUm, i_NUm1, i_NUm2: integer;
i_PerNUm: integer;
begin
WriteLn('Ввод двузначного числа:');
ReadLn(i_NUm);
i_NUm1 := i_NUm div 10;
i_NUm2 := i_NUm mod 10;
i_PerNUm := i_NUm2 * 10 + i_NUm1;
// Вывод чисел на экран
Writeln('Исходное число: ', i_NUm, ', первая цифра: ',
i_NUm1, ', вторая цифра: ', i_NUm2);
// вывод: перестановка цифр двузначного числа
Writeln('Перестановка цифр: ', i_PerNUm);
//завершение работы программы
WriteLn('Нажмите <Enter>, чтобы выйти.');
ReadLn();
end.
Результат:
Вывести число, полученное при перестановке цифр исходного числа в Паскале.