Предмет: Информатика, автор: Аноним

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

Ответы

Автор ответа: larinfo
0

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.

Приложения:
Автор ответа: Аноним
0
А не могли бы вы решить так Uses crt; Var a:integer; begin
Автор ответа: larinfo
0
Uses crt ничего не меняет
Автор ответа: larinfo
0
установи Паскаль, внеси текст программы так и эдак, посмотри разницу - никакой разницы. И вообще, где спс?
Интересные вопросы
Предмет: Алгебра, автор: kolumbaevdenis
Предмет: Другие предметы, автор: fgugjhhuh
ОЧЕНЬ ВАЖНО ! ПОМОГИТЕ !
Выбери правильный ответ по книге Ксении Беленковой «Секрет дружбы»
1.- Что хотел узнать Малыш Барсук?
какой год на дворе
какое сейчас время года
какой сейчас месяц
в чем секрет дружбы
2.- Кого встретил Малыш Барсук по пути?
кошку, мышку, лягушку
ласку, куницу, ондатру, полёвку
зайца, лису, волка
бабочку, гусеницу, комара
3.- Как назвал Малыш Барсук Ондатру?
Водяное существо
Водяная крыса
Мышка
Морская крыса
4.- Кого Малыш Барсук встретил у воды?
Енота
Кабана
Лису
Лося
5.- Кого искал Малыш Барсук?
Лягушку
Гусеницу
Бабочку
Мышь
6.- Кто хотел отнять у Малыша Барсука домик?
Землеройка
Крот
Лиса
Червяк
7.- Кто следил за Малышом Барсуком из кустов?
Еж
Росомаха
Уж
Заяц
8.- С кем стал Малыш Барсук искать бабочку?
с Ежом
с Зайцем
с Росомахой
с Ужом
9.- Кому помогли Малыш Барсук и Росомаха?
Змее
Гусеничке
Птичке
Выхухоли
10.- В чем секрет дружбы?
когда мы думаем о тех, кто рядом
когда мы учимся вместе
когда мы едим вместе
когда мы вместе разговариваем​
Предмет: Математика, автор: кари14