Question

De la tastatura se introduce un numar natural n ce reprezinta numarul de ordine al lunii anului. Scrieti un program Pascal care va afisa denumirea lunii respective.

Answer 1

Răspuns:

var n : integer;

var luna : array [1..12] of string = ('ianuarie', 'februarie', 'martie', 'aprilie', 'mai', 'iunie', 'iulie', 'august', 'septembrie', 'octombrie', 'noiembrie', 'decembrie');

begin

   writeln('Ce luna vrei?');

   readln(n);

   if (n < 13) then

   if (n > 0) then

   writeln('Luna ' + luna[n]);

end.

Explicație: