Question

ПОМОГИТЕ ,ПОЖАЛУЙСТА,паскаль С помощью оператора множественного выбора case,напишите программу ,которая по вводимому числу определяет возрастную категорию. Если 1...6 лет дошкольник ,7 ...17 школьник ,18....60 рабочий, 61...100 пенсионер.​​

Answer 1

Ответ:

program z1;

var v:integer;

begin

write('Введите возраст: ');

readln(v);

case v of  

1..6: write('Возрастная категория: дошкольник');

7..17: write('Возрастная категория: школьник');

18..60: write('Возрастная категория: рабочий');

61..100: write('Возрастная категория: пенсионер')

end

end.

Объяснение:

Если введено число не попадающее в интервал [1; 100] программа ничего не выведет

Answer 2

Конечно, вот пример программы на языке Pascal, которая определяет возрастную категорию введенного числа с использованием оператора case:

pascalCopy code
program ВозрастнаяКатегория;

var
  возраст: integer;

begin
  writeln('Введите возраст: ');
  readln(возраст);
  
  case возраст of
    1..6: writeln('Дошкольник');
    7..17: writeln('Школьник');
    18..60: writeln('Рабочий');
    61..100: writeln('Пенсионер');
    else
      writeln('Неверный возраст');
  end;
  
  readln;
end.

Эта программа сначала запрашивает ввод возраста, затем использует оператор case для определения соответствующей возрастной категории на основе введенного числа. Если введенное число не попадает ни в один из указанных диапазонов, программа выводит сообщение "Неверный возраст".