Var T:string;
k:integer;
s,c:char;
begin
Writeln('Введите строку');
Readln(T);
Writeln('Введите буквы s и c');
Readln(c);
While not(Pos(s,T)=0) do
begin
k:=Pos(s,T);
T[k]:=c;
end;
Writeln('Изменённая строка - ',T);
end.
(b∧f)∨(c∧f)∨(f∧(¬a))∨(a∧(¬b)∧(¬c)∧(¬f))
<span>4 1 И (0 И 1)
так как (0 и 1) = 0
=>
1 и (0 и 1) = (1 и 0) = 0
</span>
Допустим, Василий рыцарь. Но он сказал, что он лжец. Противоречие.
Допустим, Василий лжец. Тогда один из них рыцарь, а другой лжец (по словам Василия). Остается вариант, что Иван рыцарь. Противоречий нет.
<u>Ответ: Василий - лжец, а Иван - рыцарь</u>
А где рисунки ?ааа без них не как