Предыдущий уровень изложения текущего раздела   Текущий уровень изложения предыдущего раздела   Текущий уровень изложения следующего раздела   Первый уровень изложения следующего раздела   Уровень: Глоссарии:


ОПЕРАТОР ВАРИАНТА

Пример:

Составить программу, которая по порядковому номеру месяца и по значению года определяет количество дней в месяце.

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.