Определи, какую задачу решает фрагмент программы, если a — целое трёхзначное число: readln(a); k1 := a mod 10; k2 := (a div 10) mod 10; b := k2 * 10 + k1; writeln(b);

Данный фрагмент программы решает задачу перестановки двух цифр в трёхзначном числе.

Решение:

1. Сначала программа считывает трёхзначное число, которое обозначено как переменная a.
2. Затем программа вычисляет последнюю цифру числа a (единицы) и сохраняет её в переменную k1 с помощью операции остатка от деления на 10: k1 := a mod 10;
3. Далее программа вычисляет для числа a десятки (вторую справа цифру) путем деления числа a на 10 и взятия остатка от деления этого результата на 10: k2 := (a div 10) mod 10;
4. Далее программа формирует новое число b, поменяв местами цифры k1 и k2 таким образом, что десятки становятся единицами, а единицы - десятками: b := k2 * 10 + k1;
5. Наконец, программа выводит полученное число b с переставленными цифрами.

Например, если у нас исходное число a равно 345, то после выполнения программы будет выведено число b равное 354, т.е. цифры 4 и 5 будут поменяны местами в трёхзначном числе.