Помогите написать на Паскале
Дано N пицц Пиццу резать нельзя ! Если распределить пиццы поровну среди М друзей , то по скольку пицц получит каждый друг и сколько пицц окажутся не распределенными ? Программа получает на вход два натуральных числа N и M , при чем N > M. N не превосходит 10 9 Программа должна вывести два числа- сколько пицц достанется каждому другу и сколько пицц останется не распределенными через пробел

добавьте условие что N не превосходит 10^9

program Pizza2friends;var N,M:integer;beginwriteln('Введите количество пицц');read(N);writeln('Введите количество друзей');read(M);if (N > M) and (N < exp(ln(10) * 9)) thenwriteln('У каждого друга будет ',N div M,' пицц. Останется ',N mod M,' ничьих пицц.')else writeln('Пицц должно быть больше, чем друзей и N не должно превышать 10^9.');end.

До нельзя просто. div находит целое число от деления, mod — остаток. Путём деления и находим, кто сколько пицц скушает =)

program Pizza2friends;

var N,M:integer;

begin

writeln('Введите количество пицц');read(N);writeln('Введите количество друзей');read(M);

if N > M thenwriteln('У каждого друга будет ',N div M,' пицц. Останется ',N mod M,' ничьих пицц.')

else writeln('Пицц должно быть больше, чем друзей');

end.