На складе имеется определённое количество ящиков с яблоками. когда подъезжает машина для погрузки, попросить пользователя ввести, сколько ящиков загрузить в первую машину, во вторую и так далее, пока не закончатся ящики с яблоками. предусмотреть тот случай, когда пользователь введёт количество ящиков больше, чем есть на складе через язык программирования паскаль

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

Program apples_on_truck;

var
totalApples: Integer; // переменная для хранения общего количества ящиков с яблоками на складе
numTrucks: Integer; // переменная для хранения количества машин для погрузки
applesPerTruck: Integer; // переменная для хранения количества ящиков, загружаемых в каждую машину
i: Integer; // переменная-счетчик для цикла

begin
// запрос у пользователя количества ящиков с яблоками на складе
Write('Введите общее количество ящиков с яблоками на складе: ');
Readln(totalApples);

// запрос у пользователя количества машин для погрузки
Write('Введите количество машин для погрузки: ');
Readln(numTrucks);

// вывод сообщения о начале погрузки
Writeln('Начинается погрузка ящиков в машины...');

// цикл для погрузки ящиков в каждую машину
for i := 1 to numTrucks do
begin
// проверка, что на складе остались ящики с яблоками
if totalApples > 0 then
begin
// запрос у пользователя количества ящиков для загрузки в текущую машину
Write('Введите количество ящиков для загрузки в машину ', i, ': ');
Readln(applesPerTruck);

// проверка, что количество ящиков для загрузки не превышает общее количество ящиков на складе
if applesPerTruck <= totalApples then
begin
// уменьшение количества ящиков на складе на загруженное количество
totalApples := totalApples - applesPerTruck;
// вывод информации о загруженных ящиках
Writeln('Ящики загружены в машину ', i);
Writeln('Осталось ящиков на складе: ', totalApples);
end
else
begin
// случай, когда пользователь ввел количество ящиков больше, чем есть на складе
Writeln('Введено количество ящиков больше, чем есть на складе');
// остановка цикла
Break;
end;
end
else
begin
// случай, когда ящики на складе уже закончились
Writeln('Ящики на складе закончились');
// остановка цикла
Break;
end;
end;

// вывод сообщения о завершении погрузки
Writeln('Погрузка ящиков в машины завершена');

// ожидание ввода, чтобы окно программы не закрылось сразу после выполнения
Readln;

end.