Var
s, a, b: string;
i: integer;
begin
readln(s);
a:='Да';
b:='Нет';
while pos(a, s) > 0 do
begin
i:=pos(a, s);
delete(s, i, length(a));
insert(b, s, i);
end;
writeln(s);
<span>end.</span>
1 кбайт = 1024 байт ⇒ 6 <span>кбайт = 6144 байт
6144 байт
1) ---------------- = 1 байт
6144 симв.
1 байт = 8 бит
По формуле : </span>
=N вычисляем
=256 симв.
<span>
Ответ: 256</span>
Для того что бы вводить нужные нам знаки
к примеру : даже сейчас я пользуюсь
клавиатурой