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

Question

Информатика

Леха

14 августа, 18:38

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

+3

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