👤

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


Răspuns :

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.
Vă mulțumim că ați accesat site-ul nostru dedicat Informatică. Sperăm că informațiile furnizate v-au fost utile. Dacă aveți întrebări sau aveți nevoie de asistență suplimentară, nu ezitați să ne contactați. Vă așteptăm cu drag să reveniți și nu uitați să ne salvați la favorite!


Ze Studies: Alte intrebari