Перемещаясь из одного каталога в другой, пользователь последовательно посетил каталоги сенсации, открытия, наука, с: \, насекомые, виды. при каждом перемещении пользователь либо спускался в каталог на уровень ниже, либо поднимался на уровень выше. каково полное имя каталога, в котором пользователь оказался после перемещения?
begin
case ReadInteger('Номер месяца (1-12):') of
1,2,12:Writeln('Зима');
3..5:Writeln('Весна');
6..8:Writeln('Лето');
9..11:Writeln('Осень');
else Writeln('Неверный номер месяца')
end
end.
Вариант "для школьников"
// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
var n:integer;
begin
Write('Номер месяца (1-12): '); Read(n);
case n of
1,2,12:Writeln('Зима');
3..5:Writeln('Весна');
6..8:Writeln('Лето');
9..11:Writeln('Осень');
else Writeln('Неверный номер месяца')
end
end.