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

Question

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

Comments

для какого интерпретатора/компилятора/языка программирования

---

паскаль авс

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.