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.
<em><u>Тестовое решение:</u></em>
Введите строку: Это *просто *!* тестовая строчка!!!
Найдено *: 3, !: 4
15(символов)*8бит(1 символ)=120 бит (1 пароль).
120 бит * 30 (паролей) = 3600 бит( все записи).
3600бит = 450 байт.
Цикл выполнится два раза и программа продолжить выполнение
ответ: 35
............................................