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

Question

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

hvbdnnd · Answer

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