Răspuns :
Program Count;
var S: string;
j, i: integer;
begin
writeln ('Introduceti textul');
readln (S);
for j:=1 to length (S) do
begin
if (S[j]='.') or (S[j]='!') or (S[j]='?') then i:=i+1;
end;
writeln ('Textul este format din ', i,' propozitii');
readln;
end.
var S: string;
j, i: integer;
begin
writeln ('Introduceti textul');
readln (S);
for j:=1 to length (S) do
begin
if (S[j]='.') or (S[j]='!') or (S[j]='?') then i:=i+1;
end;
writeln ('Textul este format din ', i,' propozitii');
readln;
end.