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

  • Решите задачку  паскаль

    Дано 2 целых числа. Если они не равны, то заменить каждое из них одним и так же равному большему. Если они равны, то заменить нулями.

Ответы 1

  • var

      a, b:integer;

    begin

      write('a = '); readln(a);

      write('b = '); readln(b);

      if a <> b then

       if a > b then

          b := a

        else

          a := b

      else

      begin

        a := 0;

        b := 0;

      end;

      writeln('a = ', a);

      writeln('b = ', b);

      readln;

    end.

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

Еще вопросы

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

Войти через Google

 или

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

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

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