Дано трёхзначное число, поменять местами сотни и единицы и сравнить эти числа?

Question

Информатика

Любим

18 октября, 18:26

Дано трёхзначное число, поменять местами сотни и единицы и сравнить эти числа?

+1

Ответы (1)

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

Виринея · Answer 1

Var a, b, c: integer;

begin

readln (a) ;

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

if (a > b) then

writeln (a, ' > ', b)

else if (a = b) then writeln (a, ' = ', b)

else writeln (a, ' < ', b) ;

end.