• В программе Паскаль ввести два числа и вывести их в порядке возрастания

Ответы 2

  •    program les;   var a,b:integer;   begin   writeln(' vedite 4icla ');   readln(a,b);   if a>b then   begin   writeln(b,' ' ,a);   end;   if a<b then   begin   writeln(a,' ',b);   end;   end.

  • program qf;

    uses crt;

    var x,y:integer;

    begin

    clrscr;

    writeln('введи числa');

    readln(x,y);

    if x>y then writeln(y,x) else writeln(x,y);

    readln;

    end.

     

    • Автор:

      willboone
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years