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

Помогите плиз.
На паскале.
Даю много баллов

11. Введите с клавиатуры возраст человека (от 1 до 25) и выведите на экран сообщение о его статусе (ребенок, ученик или студент).
12. Введите с клавиатуры скорость объекта в км/ч (от 5 до 100) и выведите на экран сообщение об объекте (человек, велосипедист или автомобилист).

Ответы

Автор ответа: ruslol
1
Всё делаю через case,т.к. if будет не очень уместен.
1)
program age;
var
age:integer;
a:array[1..3] of String = ('ребёнок','ученик','студент');
begin
Read(age);
case age of
1..6:WriteLn(a[1]);
7..18:WriteLn(a[2]);
19..25:WriteLn(a[3]);
end;
end.

2)
program speed;
var
speed:integer;
a:array[1..3] of String = ('человек','велосипедист','автомобилист');
begin
Read(speed);
case speed of
5..20:WriteLn(a[1]);
21..50:WriteLn(a[2]);
51..100:WriteLn(a[3]);
end;
end.
Похожие вопросы
Предмет: Математика, автор: nika2005dovadzyan