N школьников делят k яблок поровну, неделящийся остаток остается в корзинке. Сколько яблок достанется каждому школьнику? Сколько яблок останется в корзинке? Программа получает на вход числа n и k и должна вывести искомое количество яблок (два числа).
Program sh; var n,k: integer; begin write('введите кол-во школьников: '); readln(n); write('введите кол-во яблок: '); readln(k); writeln('останется в корзинке: ', k mod n); writeln('достанется каждому по ', k div n); end.