Question

СРОЧНО ! ДАЮ 50 БАЛЛОВ ЯЗЫК ПАСКАЛЬДелёж яблокN школьниксив делят К яблок поровну, неделяющийся остаток остается в корзинке. Напишите программу, которая определяет, сколько яблок достанеться каждому школьнику? Формат входных данных: Программа считывает со стандартноно потока ввода (stdin) или из файла inрut.trt два натуральных числа К и N. Оба числа не превосходят 10 000. Формат выходных данных: Программа должна вывести на стандартный поток вывода (stdоut) или в файл оutрut.txt одно число-ответ на вопрос в условии задачи.​

Answer 1

Ответ:

program z1;

var k,n:integer;

begin

read(k,n);

write(k div n)

end.

Объяснение:

Вводим числа

Вводим результат целочисленного деления

Answer 2

Для решения этой задачи в языке программирования Паскаль можно использовать следующий код:

pascalCopy code
program DivideApples;
var
  K, N, applesPerStudent, remainder: integer;
begin
  { Считываем значения K и N }
  read(K, N);

  { Вычисляем, сколько яблок достанется каждому школьнику и остаток }
  applesPerStudent := K div N;
  remainder := K mod N;

  { Выводим результат на стандартный поток вывода }
  writeln(applesPerStudent);

  { Опционально, выводим остаток, если он не равен нулю }
  if remainder <> 0 then
    writeln('Остаток в корзинке: ', remainder);
end.

Сохраните этот код в файле с расширением .pas (например, DivideApples.pas) и скомпилируйте его с помощью вашей среды разработки Паскаль или компилятора командной строки. Затем запустите программу и введите значения K и N. Программа выведет сколько яблок достанется каждому школьнику.