1. 

   Ms. Creative New Member

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

    

   Ms. Creative, 22 мар 2010

   #1
2. 

   кофеэксперт New Member

   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.

    

   кофеэксперт, 22 мар 2010

   #2

Ваше имя или e-mail:

Пароль:

Забыли пароль?

Запомнить меня