• (34 балла) Даны целые числа а и b (а > b). Определить: Результат целочисленного деления a на b, не используя стандартную операцию целочисленного деления; Остаток от деления а на b не используя стандартную операцию вычисления остатка. решите на Pascal ABC/ C ПОМОЩЬЮ цикла WHILE

Ответы 1

  • var

    a, b, ans: Integer;

    begin

    Readln(a, b);

    ans := 0;

    while ans * b <= a do

    ans := ans + 1;

    ans := ans - 1;

    Write(ans,' ', a-(ans*b));

    end.

    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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