Question

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

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.

Answer 2

Спасибо!