Question

Дано: m учеников и пакет с карамельками, сколько карамелек нужно убрать чтобы раздать всем поровну?

Answer 1

var m, k, res : integer;

begin

 write('Введите кол-во учеников: '); read(m);

 write('Введите кол-во карамелек: '); read(k);

 res := k mod m;

 write('Чтобы было поровно нужно убрать: ',res);

end.

be45e7089a17202734cb37c5f5f8eebf.pas