Написал всё в одну программу. Если тебе нужно по отдельности, то пиши.
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>
(¬A v B) /\ (B v ¬C)
(¬A + B) & (B + ¬C)
¬AB + ¬A¬C + BB + B¬C
¬AB + ¬A¬C + B + B¬C
(¬AB + B) + B¬C + ¬A¬C
(¬A + 1)B + B¬C + ¬A¬C
B + B¬C + ¬A¬C
B(1 + ¬C) + ¬A¬C
B + ¬A¬C
For i=1 to 15
input a
s=s+a
next
? s
Конечное количество значений
Дискретный сигнал<span> - </span>сигнал<span>, </span>имеющий конечное число значений<span>. </span>
Обычно сигналы<span>, </span>передаваемые через дискретные каналы<span>, </span>имеют два или три значения<span>. </span>Использованиесигналов с тремя значениями обеспечивает синхронизацию <span>передачи</span>