Предмет: Информатика,
автор: еееееебой
написать программу паскаль : вводится возраст человека выдать его статус 1-7 ребёнок 8-18 школьник 19-24 студент 25-65 рабочий от 65 пенсионер
Ответы
Автор ответа:
2
var years:integer;
begin
readln(years);
case years of
1..7: writeln('Ребенок');
8..18: writeln('Школьник');
19..24: writeln('Студент');
25..65: writeln('Рабочий');
66..150: writeln('Пенсионер');(*Вряд ли до 150 кто-то доживет, но все же*)
end;
end.
Похожие вопросы
Предмет: Математика,
автор: Аноним
Предмет: Литература,
автор: Аноним
Предмет: История,
автор: mackarenckon2018
Предмет: Математика,
автор: yspui507
var years:integer;
begin
readln(years);
if years < 0 then
begin
writeln('Неверный возраст');
exit;
end;
case years of
1..7: writeln('Ребенок');
8..18: writeln('Школьник');
19..24: writeln('Студент');
25..65: writeln('Рабочий');
else writeln('Пенсионер');(*Вряд ли до 150 кто-то доживет, но все же*)
end;
end.