Question

входные числа не превышают 10 и 9-ой степени. 1.Дано целое положительное двузначное число. Вывести число, полученное при перестановке цифр исходного числа.
2.Дано целое положительное трехзначное число. Вывести вначале его последнюю цифру(единицы), а затем-его среднюю цифру(десятки).
3.Даны два числа. Вывести вначале большое, а затем меньшее из них.​

Answer 1

program kw1;

uses

crt;

var

a, b: longint;

begin

writeln('1.');

writeln('Введите положительное двузначное число:');

readln(a);

writeln((a mod 10) * 10 + (a div 10));

writeln;

writeln('2.');

writeln('Введите целое положительное трехзначное число:');

readln(a);

writeln(a mod 10);

writeln((a mod 100) div 10);

writeln;

writeln('2.');

writeln('Введите два числа через пробел:');

readln(a, b);

if a > b then

writeln(a, ' ', b)

else

writeln(b, ' ', a);

end.