Question

Написать программу для решения следующей задачи. N чертят наколдовали M яблок. Определить: 1. Сколько яблок досталось каждому чертенку, если они разделили их поровну. Резать яблоки старый черт им не разрешил. 2. Сколько яблок осталось после дележки 3. Сколько яблок нужно еще наколдовать, чтобы после деления остатка не было. Всё это нужно на языке Паскаль.

Answer 1

1) M / N

2) M % N

3) M - M % N

Answer 2

Конечно, вот программа на языке Паскаль для решения данной задачи:

pascalCopy code
program AppleDivision;

var
  N, M, applesPerCherub, remainder, additionalApples: Integer;

begin
  // Ввод количества чертят и яблок
  Write('Введите количество чертят (N): ');
  Readln(N);
  
  Write('Введите количество яблок (M): ');
  Readln(M);

  // Рассчитываем сколько яблок досталось каждому чертенку
  applesPerCherub := M div N;
  
  // Рассчитываем остаток яблок после дележки
  remainder := M mod N;
  
  // Вывод результатов
  Writeln('1. Яблок каждому чертенку:', applesPerCherub);
  Writeln('2. Остаток яблок после дележки:', remainder);
  
  // Рассчитываем сколько яблок нужно наколдовать, чтобы не было остатка
  if remainder > 0 then
  begin
    additionalApples := N - remainder;
    Writeln('3. Необходимо наколдовать еще яблок:', additionalApples);
  end
  else
    Writeln('3. Наколдовать дополнительные яблоки не требуется.');
end.

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