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

Question

Информатика

Томила

19 января, 04:32

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

+1

Ответы (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