👤
ANDREEASONAEZ
a fost răspuns

Scrieţi programul Pascal care citeşte de la tastatură un text de cel mult 50 de caractere,
(litere mici ale alfabetului englez şi spaţii), text format din mai multe cuvinte, separate prin
câte un spaţiu, şi afişează pe ecran textul obţinut din cel iniţial prin transformarea primei
litere şi a ultimei litere ale fiecărui cuvânt în majusculă, restul caracterelor rămânând
nemodificate.
Exemplu: dacă se citeşte textul azi este examen de bacalaureat, se va afişa AzI
EstE ExameN DE BacalaureaT. (Pascal)

Răspuns :

var

 s:string;
 i,n:integer;
 
begin

 read(s);
 
 for i:=1 to length(s) do
  begin
   n+=1;
   if(s[i]=' ') then
    begin
     s[i-n+1]:=upcase(s[i-n+1]);
     s[i-1]:=upcase(s[i-1]);
     n:=0;
    end;
   if(i=length(s)) then
    begin
     s[i-n+1]:=upcase(s[i-n+1]);
     s[i]:=upcase(s[i]);
     write(s);
     exit;
    end;
  end;

end.
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile disponibile v-au fost utile și inspiraționale. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, suntem aici pentru a vă ajuta. Ne face plăcere să vă revedem și vă invităm să adăugați site-ul nostru la favorite pentru acces rapid!


Ez Studiers: Alte intrebari