Question

Задача «Дележ яблок» Условие n школьников делят k яблок поровну, неделящийся остаток остается в корзинке. Сколько яблок достанется каждому школьнику? Сколько яблок останется в корзинке? Программа получает на вход числа n и k и должна вывести искомое количество яблок (два числа).

Answer 1

Var
  n,k:integer;

begin
  Write('Введите количество школьников и количество яблок: ');
  Read(n,k);
  Writeln('Каждому школьнику достанется яблок: ',k div n);
  Writeln('Останется в корзине яблок: ',k mod n)
end.

Пример
Введите количество школьников и количество яблок: 19 50
Каждому школьнику достанется яблок: 2
Останется в корзине яблок: 12