Вопрос задан 01.11.2026 в 09:46. Предмет Информатика. Спрашивает Вольпин Максим.

Составить программу (паскаль), которая по введённому возрасту пользователя сообщает, к какой возрастной группе он относится:
а) до 13 – детство;
б) 14-24 – молодость;
в) 25-59 – зрелость;
г) от 60 – старость.

Перейти к ответам

Ответы на вопрос

Отвечает Фесенко Надежда.

Ниже представлена программа на языке Pascal, которая определяет возрастную группу человека по введённому возрасту.

Программа на Паскале

pascal
program Vozrast; var age: integer; begin write('Введите ваш возраст: '); readln(age); if age < 0 then writeln('Возраст введён неверно') else if age <= 13 then writeln('Детство') else if age <= 24 then writeln('Молодость') else if age <= 59 then writeln('Зрелость') else writeln('Старость'); readln; end.

Объяснение программы

  1. var age: integer; — объявляем переменную age целого типа для хранения возраста пользователя.

  2. readln(age); — считываем возраст, введённый с клавиатуры.

  3. if age < 0 then — проверяем корректность введённого возраста.

  4. else if age <= 13 then — если возраст от 0 до 13 лет включительно, выводим «Детство».

  5. else if age <= 24 then — если возраст от 14 до 24 лет, выводим «Молодость».

  6. else if age <= 59 then — если возраст от 25 до 59 лет, выводим «Зрелость».

  7. else — если возраст 60 лет или больше, выводим «Старость».

Пример работы программы

Пример 1:

Обычный текст
Введите ваш возраст: 10 Детство

Пример 2:

Обычный текст
Введите ваш возраст: 20 Молодость

Пример 3:

Обычный текст
Введите ваш возраст: 35 Зрелость

Пример 4:

Обычный текст
Введите ваш возраст: 65 Старость

Таблица возрастных групп

Возраст

Возрастная группа

0–13 лет

Детство

14–24 года

Молодость

25–59 лет

Зрелость

60 лет и старше

Старость

Вывод: программа использует условный оператор if ... then ... else, последовательно проверяет возраст пользователя и выводит соответствующую возрастную группу. Программа подходит для PascalABC.NET и других распространённых реализаций Паскаля.

Похожие вопросы

Топ вопросов за вчера в категории Информатика

Последние заданные вопросы в категории Информатика

Задать вопрос