Pascal (CASE)

[giv93]

С использованием оператора CASE составить программу, которая по возрасту выводит сообщение: "ребенок", "школьник", "студент", "работник", "пенсионер".

[Вадим Мошев]

составляйте....

[Serge_Bliznykov]

  WriteLn('Введите возраст в годах: ');
  ReadLn(Age);
  WriteLn;
  Write('Вы - ');
  case Age of
    0..6: WriteLn('ребёнок');
    7..17:  WriteLn('школьник');
    18..22: WriteLn('студент');
    23..60: WriteLn('работник');
    61..110: WriteLn('пенсионер');
  else
    WriteLn('- неизвестно кто!! Возраст указан некорректно!');
  end;
  Readln

[JUDAS]

offtop on

WriteLn('- неизвестно кто!! Возраст указан некорректно!');

старожил с Книги рекордов Гиннеса ))
offtop off
а перед case Age of можно написать if Age>=0 then