Question

Помогите пожалуйста, нужно написать программу для Free Pascal Мама-ежиха принесла А грибов, папа-ёж принес В грибов. В семье К маленьких ежат. Было решено поделить грибы на всех поровну, включая маму и папу. Если что-то останется, можно засушить на зиму. Сколько грибов достанется каждому?

Answer 1

var a,b,k:integer;

begin

writeln('a, b, k:');

readln(a,b,k);

writeln('Каждый получит по ', (a+b) div (k+2),' гр.');

end.

Пример:

a, b, k:

15 20 4

Каждый получит по 5 гр.

Answer 2

Конечно, я могу помочь вам написать программу на языке программирования Free Pascal для решения этой задачи. Вот пример программы:

pascalCopy code
program DivideMushrooms;
var
  A, B, K, totalMushrooms, mushroomsPerEjat, remainingMushrooms: integer;
begin
  writeln('Введите количество грибов, принесенных мамой-ежихой (А): ');
  readln(A);

  writeln('Введите количество грибов, принесенных папой-ёжем (B): ');
  readln(B);

  writeln('Введите количество маленьких ежат (K): ');
  readln(K);

  totalMushrooms := A + B;  // Общее количество грибов

  mushroomsPerEjat := totalMushrooms div (K + 2);  // Грибы на каждого ежат и родителей
  remainingMushrooms := totalMushrooms mod (K + 2); // Оставшиеся грибы

  writeln('Каждому ежату и родителям достанется ', mushroomsPerEjat, ' грибов.');

  if remainingMushrooms > 0 then
    writeln('Остаток грибов: ', remainingMushrooms, '. Можно засушить на зиму.')
  else
    writeln('Нет остатка грибов. Ничего не нужно засушивать.');

  readln;
end.

Программа запрашивает количество грибов, принесенных мамой и папой, а также количество маленьких ежат. Затем она вычисляет количество грибов на каждого ежату и родителям (при условии, что грибы делятся поровну) и определяет остаток грибов. Результат выводится на экран.

Помните, что язык программирования Pascal чувствителен к регистру, поэтому убедитесь, что код написан с учетом этого.