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.