Question

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!!!!!!

Answer 1

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.