Валиден номер на месец

Да се въведе цяло число и да се отпечата TRUE ако е валиден номер на месец и FALSE иначе.

По желание: Да се направят проверки дали месеца е през пролет, лято, есен, зима.

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

6 коментара по Валиден номер на месец

  1. teriinkaa17 каза:
    
    program project1;
    
    var
    mesec: integer ;
    
    begin
    WriteLn(Vavedete nomer na meseca)  ;
    ReadLn(mesec)  ;
    WriteLn( 'Dali e validen nomera na meseca:' (mesec>=1) AND (mesec<=12))  ;
    ReadLn
    
    end.       
    
    
  2. Emilly D. каза:
    program Project1;
    
    
    var
    mesec : integer;
    begin
    WriteLn('vuvedete nomera na meseca' );
    ReadLn(mesec);
    WriteLn ('Dali e validen nomera na meseca:',(mesec >=1 ) and (mesec <=12)) ;
    ReadLn
    end.
     
  3. Mladen96 каза:
    program project1;
    
    var
    mesec:integer;
    begin
    Write ('Vavedete mesec:');
    ReadLn(mesec);
      WriteLn('dali e validen nomer ot mesec:', (mesec >= 1) AND (mesec <= 12));
    ReadLn;
    end.     
    
  4. Silviq Evgenieva каза:
    program Project1;
    var
    mesec: integer;
    begin
    Write ('Vavedete mesec');
    ReadLn (mesec);
    WriteLn ('dali e validen nomera na mesec', (mesec>=1) and (mesec<=12));
    readLn;
    end.
  5. cwettelinaa каза:
    program Project1;
    
    var
     a:integer;
    begin
     Write ('Vavedete chisloto');
     ReadLn (a);
     WriteLn( 'Dali e validen nomera na meseca:' (mesec&gt;=1) AND (mesec&lt;=12)) ;
     ReadLn
    
     end.
    
  6. teriinkaa17 каза:
    
    program project1;
    var
    mesec: integer ;
    begin
      WriteLn('Vavedete nomer na meseca')  ;
      ReadLn(mesec)  ;
      WriteLn( 'Dali e prolet', (mesec>=3) AND (mesec<=5))  ;
      WriteLn( 'Dali e lyato', (mesec>=6) AND (mesec<=8))  ;
    
    ReadLn
    
    end.       
    
    

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