ТутРешу.Ру

НАПИСАТЬ ПОЛНУЮ ПРОГРАММУ В ПАСКАЛЬ АБЦ!

Задание:

НАПИСАТЬ ПОЛНУЮ ПРОГРАММУ В ПАСКАЛЬ АБЦ! N школьников делят K яблок поровну, неделящийся остаток остается в корзинке. Сколько яблок достанется каждомушкольнику? Программа получает на вход числа Nи K и должна вывести искомое количество яблок.

Решение:

varn,k: integer; beginwriteln ('Введите кол-во школьников: '); read (n); writeln ('Сколько яблок у них? '); read (k); writeln ('Каждый школьник получит ',k div n,' яблок (у) '); end.




Знаете другой ответ?

Отправить свой ответ