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

Публикувано на 09 декември, понеделник от Данаил

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

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

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

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

  1. teriinkaa17 каза:
    09 декември, понеделник в 16:30 
    
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. каза:
    09 декември, понеделник в 16:31 
    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 каза:
    09 декември, понеделник в 16:34 
    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 каза:
    09 декември, понеделник в 16:38 
    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 каза:
    09 декември, понеделник в 16:40 
    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 каза:
    09 декември, понеделник в 16:44 
    
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.

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