<span>b) Клавиатура, сканер, микрофон, мышь</span>
Var
S:string;
B:boolean;
i:integer;
Begin
B:=false;
Write('Введите строку: ');ReadLn(S);
For i:= 1 to Length(S)-1 do
if S[i] = 'в' then
if S[i+1] = 'а' then B:=true;
if B then Write('Есть')
else Write('Нет')
End.
Если нужно сделай ещё вывод полученного числа
4-х цветное кажется это 2 бита, 10*10 это 100.
2*100=200битов=25байтов
" из 2056 символов в кодировке Unicode " это уже 2кб * 2-3 байта, в зависимости от ПК.
Конечно текст раз в сто больше рисунка.