Задание:
НАПИСАТЬ ПОЛНУЮ ПРОГРАММУ В ПАСКАЛЬ АБЦ! N школьников делят K яблок поровну, неделящийся остаток остается в корзинке. Сколько яблок достанется каждомушкольнику? Программа получает на вход числа Nи K и должна вывести искомое количество яблок.
Решение:
varn,k: integer; beginwriteln ('Введите кол-во школьников: '); read (n); writeln ('Сколько яблок у них? '); read (k); writeln ('Каждый школьник получит ',k div n,' яблок (у) '); end.
Знаете другой ответ?