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

Question

Кима

30 апреля, 11:12

+1

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