Программирование паскаль abc ! с дерева собрали некоторое количество яблок. их разделили поровну между детьми, гулявшими во дворе (яблоки не резали), а оставшиеся отдали, чтобы сварить компот. сколько яблок досталось каждому ребенку? сколько пошло на компот?
begin
var a:=ReadInteger('Яблок было');
var d:=ReadInteger('Детей гуляло');
Writeln('Каждый получил яблок: ',a div d);
Writeln('На компот пошло яблок: ',a mod d)
end.
Тестовое решение:
Яблок было 37
Детей гуляло 7
Каждый получил яблок: 5
На компот пошло яблок: 2