Вопрос, который вызвал трудности

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

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

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

Примечание
При решении этой задачи нельзя пользоваться условной инструкцией if и циклами.

Примеры
входные данные
7
30
выходные данные
5
входные данные
7
28
выходные данные
0

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

Var
    n, k: integer;

begin
    readln(n, k);
    {решение без циклов и условных операторов}
    writeln('Решение Учеников = ', (n - k mod n) mod n);
    
    {проверка}        
    while k > n do
        k := k - n;
        
    if k > 0 then
        n := n - k
    else
        n := 0;
    writeln('Проверка Учеников = ', n);
end.

Var a, b: integer;
begin
read(b, a);
write((b - a mod b) mod b);
end.