Дано трёхзначное число. Найти число, полученное при перестановке второй и третьей цифры заданного числа. в Паскале abc

Question

Евдений

23 февраля, 09:29

+3

Ответы (1)

Знаете ответ на вопрос?

Катя · Answer 1

Var a:integer;

begin

writeln ('Введите число') ;

read (a) ;

a : = a div 100*100 + a mod 10*10 + a mod 100 div 10;

writeln (a) ;

end.