Se consideră şiruri de caractere formate din literele mari ale alfabetului latin şi spaţii. Creati un program care afişează şirurile în studii după
următoarele reguli:
- fiecare literă de la ′A′ pînă la ′Y ′ se inlocuieste prin următoarea literă din alfabet
-fiecare literă ′Z′ se inlocuieste pri litera ′A′;
Var a:array [1..1000] of char; I, n:integer; Begin I:=1; While not (eoln) do begin Read (a [i];) inc (i); End; n:=i; For i:=1 to n do Case ord (a [i]) of 32:a [i]:='-'; 90:a [i]:='A' Else a [i]:=chr(ord (a [i])+1); End; For i:=1 to n do Write (a [i]:3); end.
Vă mulțumim că ați accesat site-ul nostru dedicat Informatică. Sperăm că informațiile furnizate v-au fost utile. Dacă aveți întrebări sau aveți nevoie de asistență suplimentară, nu ezitați să ne contactați. Vă așteptăm cu drag să reveniți și nu uitați să ne salvați la favorite!
