Во введенной строке подсчитайте количество символов "*" и символов "!".

Информатика. Паскаль. Строки

Var

s:string;

i, n1, n2:integer;

begin

Write ('Введите строку: ') ; Readln (s) ;

n1:=0; n2:=0;

for i:=1 to Length (s) do

case s[i] of

'*':Inc (n1) ;

'!':Inc (n2)

end;

Writeln ('Найдено * : ', n1,',!: ', n2)

end.

Тестовое решение:

Введите строку: Это * просто * ! * тестовая строчка!

Найдено * : 3,!: 4