1. Информатика
  2. Nшкольников делят k яблок

Nшкольников делят k яблок “поровну”, то есть так, чтобы количество яблок, доставшихся любым двум школьникам, отличалось бы не более, чем на 1. входные данные программа получает на вход числа n и k. выходные данные программа должна вывести количество школьников, которым достанется яблок меньше, чем некоторым из их товарищей. примечание при решении этой нельзя пользоваться условной инструкцией if и циклами. примеры входные данные 7 30 выходные данные 5 входные данные 7 28 выходные данные 0

никкки228 никкки228    2   30.07.2019 23:20    7

Ответы
Mmaal Mmaal  03.10.2020 18:02
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.
ПОКАЗАТЬ ОТВЕТЫ
Ariana030709 Ariana030709  03.10.2020 18:02
Var a, b: integer;
begin
read(b, a);
write((b - a mod b) mod b);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
natalisha96121 natalisha96121  18.05.2019 18:00
Квадратный лист бумаги сложи пополам,затем ещё раз пополам и т.д.через сколько складываний,после разварачивания листа ,получится,что на листе будет много малых...
shildebaev01 shildebaev01  05.05.2020 14:26
Какой фигурой обозначается блок вычислений? Овал Квадрат Ромб Прямоугольник​...
Abdulla234 Abdulla234  05.05.2020 14:26
класс. В одной из кодировок unicode каждый символ кодируется 16 битами.Определите размер следующего предложения в данной кодировке:*Это огромный секрет, именно поэтому о нём...
vbackarevap09p0h vbackarevap09p0h  03.02.2021 11:12
1. Объясните особенности линейных алгоритмов. 2. Какие операторы используются для ввода и вывода в модульной программе? 3. Какие операторы используются для ввода и вывода данных...
МаксЭндер МаксЭндер  03.02.2021 11:14
решить задачу по информатике...
vikagalimzhano vikagalimzhano  28.03.2020 17:54
Напишите функцию Rectangle intersect(Rectangle r1, Rectangle r2), которая вернёт пересечение прямоугольников r1 и r2 — новый прямоугольник. Если у прямоугольников r1 и r2 нет...
алина3893 алина3893  30.11.2021 22:02
Одна сторона прямокутника дорівнює 3 3/4 см, а інша 3,25 см. Знайдіть периметр прямокутника. Відповідь запишіть десятковим дробом й округліть його до десятих....
ЭминГаджиев ЭминГаджиев  30.11.2021 22:02
Перепишіть прислів я. Там, де треба, поставте тире між підметом і присудком. 1. Вірний приятель то найбільший скарб. 2. Розум скарб людини. 3. Одна мати вірна порада. 4. Вовка...
Ден2251 Ден2251  30.11.2021 22:02
1 Valentina Tereshkova was the first woman in space. Her mission in 1963 to orbit the Earth made her famous When JK Rowling her was an immediate success. 2 3 At the age of...
zhaslanovd zhaslanovd  30.11.2021 22:02
Напишите мини сочинение как быть ответственным покупателем...

Популярные вопросы