Question

Составьте программу, которая определяет количество символов ‘!’ в тексте

Answer 1

var s:string; i,k:integer;
begin
writeln('Введите строку');
readln(s);
k:=0;
for i:=1 to length(s)
 do if s[i]='!' then k:=k+1;
writeln('k=',k);
end.