Question

ПОМОГИТЕ !Введите с клавиатуры скорость объекта в км/ч (от 5 до 100) и выведите на экран сообщение об объекте (человек, велосипедист или автомобилист) 5-10 человек, 10-20 велосипедист, 20-100 автомобиль.

Answer 1

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;

end.

Answer 2

А не могли бы вы решить так Uses crt; Var a:integer; begin

Answer 3

Uses crt ничего не меняет

Answer 4

установи Паскаль, внеси текст программы так и эдак, посмотри разницу - никакой разницы. И вообще, где спс?