определить колличество восклицательных знаков в строке

[гагис]

определить колличество восклицательных знаков в строке

[Девочка-Скандал]

kol:=0;
для i от 1 до длины строки
if символ[i]='!' then kol:=kol+1;

[Serge_Bliznykov]

  cnt := 0;
  for i:=1 to Length(s) do
    if s[i]='!' then Inc(cnt);
  WriteLn('В строке ',cnt:1,' восклицательных знаков.')