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

Var

n, k:integer;

begin

Write ('Введите количество школьников и количество яблок: ') ;

Read (n, k) ;

Writeln ('Каждому школьнику достанется яблок: ', k div n) ;

Writeln ('Останется в корзине яблок: ', k mod n)

end.

Пример

Введите количество школьников и количество яблок: 19 50

Каждому школьнику достанется яблок: 2

Останется в корзине яблок: 12