👤
a fost răspuns

Va rog rezolvati problema in PASCAL . Aveti poza !

Va Rog Rezolvati Problema In PASCAL Aveti Poza class=

Răspuns :

SNAKEANDENDID

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 !

Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile oferite v-au fost de ajutor. Nu ezitați să ne contactați pentru orice întrebare sau dacă aveți nevoie de asistență suplimentară. Vă așteptăm cu drag data viitoare și nu uitați să ne adăugați la favorite!


ID Learners: Alte intrebari