Найти ошибку в программе с оператором выбора, потому что решение не выводится. : по номеру месяца и года определить количество дней в месяце. 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.

Sonya2308 Sonya2308    2   03.04.2019 12:20    1

Ответы
akowa05 akowa05  03.04.2019 14:00

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика