Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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