Question

Va rog rezolvati problema in PASCAL . Aveti poza !

Answer 1

Program P1;

var

n:array[1..7] of string;

a:Char;

begin

  Writeln('Spuneti numarul : ');

  Readln(a);

  n[1]:='Luni';

   n[2]:='Marti';

    n[3]:='Miercuri';

     n[4]:='Joi';

      n[5]:='Vineri';

       n[6]:='Sambata';

        n[7]:='Duminica';

    Case a of

      '1': Writeln(n[1]);

      '2': Writeln(n[2]);

      '3': Writeln(n[3]);

      '4': Writeln(n[4]);

      '5': Writeln(n[5]);

      '6': Writeln(n[6]);

      '7': Writeln(n[7]);

    end;

end.

Bafta !