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

  • пользователь вводит два числа если большее кратно меньшему то найдите их сумму в противном случае найдите их частное

Ответы 1

  • var

      a, b:integer;

    begin

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

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

      if a < b then

      begin

        a := a + b;

        b := a - b;

        a := a - b;

      end;

      if a mod b  = 0 then

        writeln('a + b = ', a + b)

      else

        writeln('a / b = ', a / b);

    end.

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

Еще вопросы

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

Войти через Google

 или

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

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

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