Найти ошибку в программе с оператором выбора, потому что решение не выводится. : по номеру месяца и года определить количество дней в месяце. program z1; var y,m,k: integer; begin write('y='); readln (y); write('m='); readln (m); case m of 1,3,5,7,8,10,12: k: =31; 4,6,9,11: k: =30; 2: if (y mod 4=0) and (y mod 100< > 0) then k: =29 else k: =28; end; readln; end.
program z1;
var y,m,k: integer;
begin
readln(y, m);
case m of
1, 3, 5, 7, 8, 10, 12 : k: =31;
4, 6, 9, 11: k: =30;
2: if ((y mod 4 =0) and (y mod 100 < > 0)) then k: =29 else k: =28;
end;
end.