Помогите написать на ПаскалеДано N пицц Пиццу резать нельзя ! Если

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

Задать свой вопрос
Любакина Ирка
не превосходит 109 либо 10?
Трель Сема
10 в 9 степени
1 ответ

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

program Pizza2friends;

var N,M:integer;

begin

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

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

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

end.

Ксения Каштурова
добавьте условие что 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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт