Question

elaborati un program pascal care permite citirea unui numar de la tastatura ce reprezinta numarul de ordine al lunii si va afisa denumirea anotimpului corespunzator in limba romina,engleza si franceza.

Va rog programul in pascal am nevoie!!!!!

Answer 1

program luna;uses crt;var n:integer;beginwriteln ('scrie numarul de ordine a lunii');readln(n);if (n=1)then writeln('ianuarie');if (n=2)then writeln('februarie');if (n=3)then writeln('martie');if (n=4)then writeln('aprilie');if (n=5)then writeln('mai');if (n=6)then writeln('iunie');if (n=7)then writeln('iulie');if (n=8)then writeln('august');if (n=9)then writeln('septembrie');if (n=10)then writeln('octombrie');if (n=11)then writeln('noiembrie');if (n=12)then writeln('decembrie');if (n>12)or (n<1)then writeln('nu exista asa luna');end.