Составить программу для вычисления числа дней в месяце по введенному номеру месяца

Question

Информатика

Артемич

21 августа, 03:55

Составить программу для вычисления числа дней в месяце по введенному номеру месяца

+3

Ответы (1)

Знаете ответ на вопрос?

Ефимья · Answer 1

var a:integer;

begin

writeln ('Vvedite nomer mesuaca') ;

read (a) ;

if (a=1) then writeln ('30') ;

if (a=2) then writeln ('28') ;

if (a=3) then writeln ('30') ;

if (a=4) then writeln ('31') ;

if (a=5) then writeln ('30') ;

if (a=6) then writeln ('31') ;

if (a=7) then writeln ('30') ;

if (a=8) then writeln ('31') ;

if (a=9) then writeln ('30') ;

if (a=10) then writeln ('31') ;

if (a=11) then writeln ('30') ;

if (a=12) then writeln ('31') ;

end.