Question

Va rog mult.
Clasa 8
In Pascal
De la tastatura se introduce un numar natural n, ce reprezinta numarul de ordine a lunii anului. scrieti un program pascal ce va afisa denumire anotimpului din care face parte luna respectiva

Answer 1

var n : byte;    l : string;begin  write('Dati nr lunii: ');  readln(n);  case n of    1: l:='Iarna';    2: l:='Iarna';    3: l:='Primavara';    4: l:='Primavara';    5: l:='Primavara';    6: l:='Vara';    7: l:='Vara';    8: l:='Vara';    9: l:='Toamna';    10: l:='Toamna';    11: l:='Toamna';    12: l:='Iarna';  else     writeln('Ati introdus o cifra gresita');    end;  write(l);  readln;end.