👤
a fost răspuns

Va rog rezolvati problema in PASCAL . Aveti poza !

Va Rog Rezolvati Problema In PASCAL Aveti Poza class=

Răspuns :

SNAKEANDENDWIX

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 că ați ales să vizitați platforma noastră dedicată Informatică. Sperăm că informațiile disponibile v-au fost utile. Dacă aveți întrebări suplimentare sau aveți nevoie de sprijin, nu ezitați să ne contactați. Vă așteptăm cu drag și data viitoare! Nu uitați să adăugați site-ul nostru la favorite pentru acces rapid.


Wix Learning: Alte intrebari