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

kushmantsev kushmantsev    3   02.03.2019 06:10    5

Ответы
orehovas orehovas  23.05.2020 20:42

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. 

 

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