Question

Scrieţi un program Pascal care citeşte de la tastatură o frază având maximum 100 de caractere, în care cuvintele sunt separate prin câte un spaţiu; programul construieşte în memorie şi afişează pe ecran un şir ce conţine doar primul caracter al fiecăruia dintre cuvintele frazei, în ordinea în care acestea apar în frază, ca în exemplu. Exemplu: dacă se citeşte fraza Ana sustine bacalaureatul la informatica

Answer 1

var s1,s2:string[100];
      i:integer;
begin
 readln(s1);
 s2:=copy(s1,1,1);
 for i:=1 to length(s1) do
  if s1[i]=' ' then s2:=s2+copy(s1,i,2);
 writeln(s2);
 readln;
end.