Question

Напишите программу на языке Паскаль, которая определяет тяжесть груза, весом до 100 кг. от 0-5 - легкий груз от 6-20 - средней тяжести груз от 21-60 - тяжелый груз и дальше до 100 - очень тяжелый груз. Задачу решить оператором выбора CASE. Предоставить полное решение.

Answer 1

Ответ:

var n: integer;

begin

read(n);

case n of

0..5: writeln('Легкий груз');

6..20: writeln('Средней тяжести груз');

21..60: writeln('Тяжелый груз');

else writeln('Очень тяжелый груз')

end;

end.

Answer 2

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

pascalCopy code
program WeightClassification;

var
  weight: integer;

begin
  writeln('Введите вес груза в килограммах: ');
  readln(weight);

  case weight of
    0..5:
      writeln('Легкий груз');
    6..20:
      writeln('Средней тяжести груз');
    21..60:
      writeln('Тяжелый груз');
    61..100:
      writeln('Очень тяжелый груз');
    else
      writeln('Вес за пределами диапазона');
  end;

  readln;
end.

Вы можете скомпилировать и запустить эту программу в среде разработки Pascal. Когда программа выполнится, она попросит вас ввести вес груза. После ввода она определит тяжесть груза в соответствии с условиями, указанными в вашем вопросе, и выведет соответствующее сообщение.