Брой дни в месеца

След въвеждане на месец (с цифра) и година да изведе колко дни има в този месец (например 31 за януари)

Публикувано в 10б с етикети . Постоянна връзка.

One Response to Брой дни в месеца

  1. Violeta каза:
     program Project1;
      var
      mesec : integer;
    
    begin
    Write('vavedete meseca (ot 1 do 12)');
    ReadLn( mesec);
    case ( mesec) of
    1,3,5,7,8,10,12 :WriteLn('31 dni v meseca');
    2: WriteLn( ' 28 ili 29 dni v meseca  zavisi dali e visokosna godinata');
    4,6,9,11: WriteLn ('30 dni v meseca ');
    else WriteLn ( 'Nevaliden mesec');
    end;
    ReadLn;
    end.
                     
     

Вашият коментар