N школьников делят K яблок поровну, неделящийся остаток остается в корзинке. Сколько яблок достанется каждому школьнику? Написать программу для Паскаля.

Для того чтобы разделить K яблок между N школьниками поровну, нужно использовать операцию целочисленного деления. Это можно выразить через оператор деления в языке программирования Паскаль. Остаток яблок, который не делится нацело на школьников, останется в корзинке и не пойдет школьникам.

Программа для Паскаля будет выглядеть так:

pascal
Копировать
program ApplesDistribution;
var
  N, K, applesPerStudent, remainingApples: Integer;
begin
  { Вводим количество школьников и яблок }
  Write('Введите количество школьников (N): ');
  ReadLn(N);
  Write('Введите количество яблок (K): ');
  ReadLn(K);
  
  { Вычисляем количество яблок, которое достанется каждому школьнику }
  applesPerStudent := K div N;
  
  { Вычисляем остаток яблок }
  remainingApples := K mod N;
  
  { Выводим результат }
  WriteLn('Каждому школьнику достанется ', applesPerStudent, ' яблок.');
  WriteLn('Остаток яблок в корзинке: ', remainingApples);
end.

В этом примере:

• K div N — это целочисленное деление, которое вычисляет, сколько яблок достанется каждому школьнику.

• K mod N — это операция взятия остатка от деления, которая определяет, сколько яблок останется в корзинке.

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