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
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.
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Ne dorim ca informațiile furnizate să vă fi fost utile. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, nu ezitați să ne contactați. Revenirea dumneavoastră ne bucură, iar pentru acces rapid, adăugați-ne la favorite!
