1) двоичным или цифровым кодирование
2) нет (1 и 0)
3) да
4) да
5) 8 байт
6) 16 бит
7) 1024 кодов
8) 3 бита
9) файл таблиц
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