Задать вопрос Регистрация
Помочь другим

  • Ввести 2 числа. Вычесть из большего меньшее. (на языке паскаля) 

Ответы 1

  • program prim;

    uses crt;

    var

    a,b,r: integer;

    begin

    clrscr;

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

    readln (a,b);

    if a>b then

    begin

    r:=a-b;

    end

    else

    begin

    r:=b-a;

    end;

    writeln ('r=', r:5);

    readkey;

    end. 

    • Автор:

      shorty22
    • 6 лет назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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