Question

Запишите программу Pascal. Известно натуральное число N - количество яблок. Известно также, что в корзину помещается ровно А яблок. Сколько целых корзин будет заполнено яблоками и сколько яблок останется?

Answer 1

Ответ:

var

 n:integer;

 a:integer;

begin

 readln(n);

 readln(a);

 writeln('Полных корзинок - '+real(n div a));

 writeln('Оставшиеся яблоки - '+real(n-((n div a)*a)));

end.

Объяснение:

Answer 2

Ответ:

n = int(input())

k = int(input())

print('Количество яблок у каждого школьника = ',k // n)

print('Оставшиеся в корзине яблоки = ',k % n)

Объяснение:

вроде так, я уже давно не сидел за Pascal:3

Answer 3

Конечно, вот пример программы на Pascal для решения этой задачи:

program AppleBaskets;

var
    N, A, filledBaskets, remainingApples: Integer;

begin
    { Ввод количества яблок и вместимости корзины }
    write('Введите количество яблок N: ');
    readln(N);
    write('Введите вместимость корзины A: ');
    readln(A);

{ Вычисление количества заполненных корзин и оставшихся яблок }
    filledBaskets := N div A;
    remainingApples := N mod A;

{ Вывод результатов }
    writeln('Количество заполненных корзин: ', filledBaskets);
    writeln('Количество оставшихся яблок: ', remainingApples);
end.

Эта программа позволяет пользователю ввести количество яблок `N` и вместимость корзины `A`. Затем она использует операторы деления целочисленного деления `div` (который возвращает целую часть результата деления) и остатка от деления `mod` для определения количества заполненных корзин (`filledBaskets`) и количества оставшихся яблок (`remainingApples`).