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

Решение задач по теме "Оператор выбора 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.

 

 

Назад