Нужно определить, сколько дней в месяце по порядковому номеру заданного месяца. Здесь N (1-12) - номер месяца, A (0 или 1) - признак високосности года, 0 - простой год, 1 - високосный год. Pascal.

Var N, A:integer;

begin

writeln ('Введите N:') ;

readln (N) ;

writeln ('Введите A:') ;

readln (A) ;

if (N = 1) or (N = 3) or (N = 5) or (N = 7) or (N = 8) or (N = 10) or (N = 12) then

writeln ('В месяце 31 день')

else if (N = 4) or (N = 6) or (N = 9) or (N = 11) then

writeln ('В месяце 30 дней')

else if (N = 2) and (A = 0) then

writeln ('В месяце 28 дней')

else if (N = 2) and (A = 1) then

writeln ('В месяце 29 дней')

else

writeln ('Данные введены неправильно!') ;

readln;

end.