Ajutatima va rog cu un program plizz ca sa nu am restanta de elaborat un program sir de caractere introdus de la tastatura numarul cuvintelor care au 5 litere imi trebuie azi urgent!!!!!!
Program Pn; var s1:string; i,n,s,ss:integer; begin Writeln('Dati sirul'); readln(s1); for i:=1 to length(s1) do begin s:=s+1; if (s1[i+1]=' ') or (s1[i+1]='.') then begin if s=5 then ss:=ss+1; s:=-1; end; end; Writeln(ss); 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!
