var
x,z:string;
i:integer;
ar:array['а'..'я'] of boolean;
begin
readln(x);
readln(z);
for i:=1 to Length(z) do
ar[z[i]]:=true;
for i:=Length(x) downto 1 do
if (ar[x[i]] = true) then delete(x,i-1,1);
writeln(x);
<span>end.
Не забудь отметить лучший ответ ;-)</span>
Program Znanija;
var a,b,c:integer;
begin
Write('Введите a');
Read(a);
Write('Введите b');
Read(b);
c:=a+b;
Write(c);
end.
1) а = 14, в = 42,
2) с = 9
Задание 8
1.
B&(AvB) = B&A v B&B = B&A v B = B&(A v 1) = B
2.
A&(Bv!B) = A&1 = A
3.
A&(AvBvC)=A&A v A&B v A&C = A v A&B v A&C = A&(1vBvC)=A
4.
!(AvBv!C)