Разработайте программу в паскаль, которая запрашивает у пользователя возраст мужчины и, в зависимости от введенного значения, выводит на экран результат из списка: до 9 лет – дитя; до 12 лет – отрок; до 18 лет – юноша; до 24 ле...
Разработайте программу в паскаль, которая запрашивает у пользователя возраст мужчины и, в зависимости от введенного значения, выводит на экран результат из списка: до 9 лет – дитя; до 12 лет – отрок; до 18 лет – юноша; до 24 лет – молодой человек; до 60 лет – мужчина; старше 60 лет – старик.
Гость
Ответ(ы) на вопрос:
Гость//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
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.
Гостьvar n: integer;
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.
Не нашли ответ?
Похожие вопросы