Введя с клавиатуры 3-значное число, получить и вывести на экран новое число, поменяв местами разряды десятков и единиц

Question

Информатика

Фотинья

9 февраля, 15:07

Введя с клавиатуры 3-значное число, получить и вывести на экран новое число, поменяв местами разряды десятков и единиц

+2

Ответы (1)

Знаешь ответ?

Аркадий · Answer 1

Var a, b:integer;

begin

write ('a = '); readln (a);

b: = (a div 100) * 100 + (a mod 10) * 10 + (a div 10 mod 10);

writeln ('b = ', b);

end.

Пример:

a = 123

b = 132