Введите с клавиатуры скорость объекта в км/ч - вопрос №85324735100 от ScHooLNick555 31.03.2021 02:03

Question

Информатика: Введите с клавиатуры скорость объекта в км/ч (от 5 до 100) и выведите на экран сообщение об объекте (человек, велосипедист или автомобилист) 5-10 человек, 10-20 велосипедист, 20-100 автомобиль.

ScHooLNick555 · Answer

program speed;

var

V:byte;

begin

writeln('enter speed');

readln(V);

if ((V>=5) and (V<=100)) then begin

case V of

5..10: writeln('man');

11..20: writeln('bike');

21..100: writeln('car');

end;

end.

Введите с клавиатуры скорость объекта в км/ч (от 5 до 100) и выведите на экран сообщение об объекте