составить программу (паскаль), которая по введённому возрасту пользователя сообщает, к какой возрастной группе он относится:
а) до 13 – детство;
б) 14-24 – молодость;
в) 25-59 – зрелость;
г) от 60 – старость
а) до 13 – детство;
б) 14-24 – молодость;
в) 25-59 – зрелость;
г) от 60 – старость
Answers & Comments
Ответ:
var i: integer;
begin
write('i = ');
readln(i);
if (i <= 13) then writeln('Детство')
else if (i >= 14) and (i <= 24) then writeln('Молодость')
else if (i >= 25) and (i <= 59) then writeln('Зрелость')
else if (i >= 60) then writeln('Старость');
end.
Ответ:
var
a:integer;
begin
write('Введите возраст '); readln(a);
write('Этот человек ');
case a of
0..13: writeln('детство');
14..24: writeln('молодость');
25..59: writeln('зрелость');
60..100: writeln('старость');
else
writeln('пенсионер');
end;
end.
Объяснение: