Pascal ABC. Программа, помогите написать пожалуйста, или киньте на подобии)) Заранее спасибо)

С дерева собрали некоторое количество яблок.
Их разделили поровну между детьми, гулявшими во дворе (яблоки не резали), а оставшиеся отдали, чтобы сварить компот.
Сколько яблок досталось каждому ребенку?
Сколько пошло на компот?

20.03.2016 04:57

Пожаловаться

Подписаться

1

0

Ответить

Ответы на вопрос (1)

Сортировать по

голосам

времени

Nurbull#212343

1

0

31.01.2020 06:55

var
a, b, c, d: integer;
begin
write('Количество яблок =');
read(a);
write('Количество детей =');
read(b);
c := a div b;
d := a mod b;
writeln(c,' шт для каждому');
writeln(d,' шт для компота');
end.

#212343

Цитировать Поделиться

Вопрос и ответы были вам полезны?

Да

Нет

Попробуйте также:

Похожие вопросы :

• Помогите с решением задачи на Pascal ABC (Ответов: 2)
• Как в Pascal ABC значения двух переменных а и б поменять местами значения переменных... (Ответов: 3)
• помогите решить (Ответов: 0)
• Помогите решить задачи. 9 класс. (Ответов: 0)
• Помогите решить с помощью "For" (Ответов: 1)
• Составьте программу, которая заполняет массив А[1..10] случайными целыми числами в... (Ответов: 0)
• Требуется ли лицензия на Pascal Abc? То есть не будет ли это пираткой, если я проста... (Ответов: 1)
• Помогите с программой Pascal. (Ответов: 0)
• Помогите, пожалуйста, найти ошибку в программе. Наименьшее число вычисляется верно,... (Ответов: 0)

Добавить ответ

Ваше имя:

Регистрация? Это возможность подписаться на новые ответы, получать за ответы очки и призы

В ответ на сообщение Нет

+ Фото

Если нужно добавить изображения: + Фото Убрать 1 фото

Текст с картинки:

Отправить

Маты, сообщения БОЛЬШИМИ БУКВАМИ, с грубыми ошибками, просто неуважительные или совершенно не по теме будут удаляться.