Question

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)

Answer 1

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.