Паскаль программа 1)программа загадывает случайное целое число из отрезка [1; 10] и просит пользователя его угадать, вводя варианты с клавиатуры, пока пользователь не угадает число, программа будет ему подсказывать, сообщая больше или меньше число загаданное, чем то, что ввёл пользователь. 2)ввести число (меньше 200000). поменять в числе цифры местами. например: вводится 23456 получается 65432.

1)
var a, b: integer;
begin
     a := random(9) + 1;
     repeat
          readln(b);
          if (a > b) then writeln('X > ', b);
          if (a < b) then writeln('X < ', b);
     until (a = b);
     writeln('WIN!');
end.

2)
"Лучшее решение - самое простое"
                                          -GLaDOS =)
var a, i: integer;
    b: string;
begin
     readln(a);
     b := inttostr(a);
     for i := length(b) downto 1 do
         write(b[i]);
end.