Решение задач по теме "Оператор выбора Case в Pascal"
Решение задачи №8
program eight;
var D,M:integer;
begin
write('День = ');
readln(D);
writeln('Месяц = ');
readln(M);
case D of
2..31: writeln('D = ',D-1,' M = ',M);
1: case M of
1,2,4,6,8,11: writeln('D = 31',' M = ',M-1);
3: writeln('D = 28',' M = ',M-1);
5,7,9,10,12: writeln('D = 30',' M = ',M-1);
end;
end;
end.