"Программы без ошибок можно написать
двумя способами, но работает — третий"
Алан Джей Перлис

Решение задач по теме "Оператор выбора Case в Pascal"

Решение задачи №3

program three;
var x:integer;
begin
     writeln('Введите номер месяца');
     readln(x);
     case x of
          1,2,12: writeln('Зима');
          3..5: writeln('Весна');
          6..8: writeln('Лето');
          9..11: writeln('Осень');
     end;
end.

 

 

Назад