Question

Se citeste de la tastatura nr de ordine al lunii anului.sa se scrie un program ca afiseaza denumirea anotimpului anului la care se refera luna respectiva!! Va rog macar ce stiti !!!!!

Answer 1

program Anotimp;

var nrluna:integer;

begin

 writeln('introdu nr lunii anului.. ');

 writeln(' 1 - pt ianuarie, 2 - pt februarie s.a.m.d ');

 read(nrluna);

 case nrluna of

   1,2,12: writeln('iarna');

   3..5: writeln('primavara');

   6..8: writeln(' a doua vara, adica vara...');

   9..11: writeln('toamna');

   else writeln(' eroare.. (anul are 12 luni) ');

 end;

end.