Разработайте программу в паскаль, которая запрашивает у пользователя возраст мужчины и, в зависимости от введенного значения, выводит на экран результат из списка: до 9 лет – дитя; до 12 лет – отрок; до 18 лет – юноша; до 24 лет – молодой человек; до 60 лет – мужчина; старше 60 лет – старик.
More Questions From This User See All
Answers & Comments
begin
var n:integer;
repeat
n := ReadInteger('Введите возраст');
until n <> 0;
case n of
1..9: println('Дитя');
10..12: println('Отрок');
13..18: println('Юноша');
19..24: println('Молодой человек');
25..60: println('мужчина')
else println('старик');
end;
end.
begin
writeln('Введите свой возраст');
readln(n);
case n of
1..9: writeln('Дитя');
10..12: writeln('Отрок');
13..18: writeln('Юноша');
19..24: writeln('Молодой человек');
25..60: writeln('Мужчина');
else writeln('Старик');
end;
end.