var
a: array [1..4] of string;
s: string := 'бвгджзйклмнпрстфхцчшщъь';
i, j: byte;
begin
for i := 1 to 4 do
readln(a[i]);
for i := 1 to 4 do
for j := 1 to length(a[i]) do
delete(s, pos(a[i][j], s), 1);
writeln();
writeln(s);
end.
>котики
>это
>несказанное
>добро
>вгжйлмпфхцчшщъь
2112(3) = 2*3^3 + 1*3^2 + 1*3^1 +2*3^0 = 2*27 + 9 + 3 + 2 = 68(10)
Сначала
2х2 равно 4, следовательно, А истинно. Обозначим истинное, как 1.
2х2 не равно 5, следовательно, В ложно. Обозначим ложное, как 0.
Тогда:
not(A and B) = not(1 and 0) = not 0 = 1, т.е. высказывание истинно.
A or not B = 1 or not 0 = 1 or 1 = 1, т.е. высказывание истинно.