• Задача по языку программирования Pascal
    n школьников делят k яблок “поровну”, то есть так, чтобы количество яблок, доставшихся любым двум школьникам, отличалось бы не более, чем на 1.

    Входные данные
    Программа получает на вход числа n и k.

    Выходные данные
    Программа должна вывести количество школьников, которым достанется яблок меньше, чем некоторым из их товарищей.

Ответы 6

  • Можно ли ещё вопрос?
  • var n,k,x:integer;beginreadln(n,k);x:=k-n mod k;writeln('x=',x);end.
  • Совсем неправильно
    • Автор:

      anahi
    • 6 лет назад
    • 0
  • Ни один тест не прошло...
  • хмм,..может потому, что там фаловый ввод вывод?
  • // PascalABC.NET 3.3, сборка 1576 от 16.11.2017// Внимание! Если программа не работает, обновите версию!Beginvar (n, k) := ReadInteger2('Введите n и k');Writeln(k - (k div n) * n);end.
  • Добавить свой ответ

Войти через Google

или

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

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

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