|
|
|
|
Пример:
Составить программу, которая по порядковому номеру месяца и по значению года определяет количество дней в месяце.
Program KD; var M, Y, K: Integer; begin WriteLn('ВВЕДИ M,Y'); Read(M,Y); case M of 1,3,5,7,8,10,12: K:=31; 2: if (Y mod 4=0) and (Y mod 100<>0) then K:=29 else K:=28; 4,6,9,11: K:=30 end; Write('K=',K:2) end.