1 - True/False
2 - логическая операция, которая объединяет два высказывания в одно новое, которое будет являться истинным тогда и только тогда, когда оба исходных высказывания ложны.
3 - Конъюнкция
4 - X И Y И Z
5 - OR
6 - 1. Инверсия;
2. Конъюнкция;
3. Дизъюнкция;
4. Импликация;
5. Эквивалентность.
7 - логическая операция, которая преобразует исходное высказывание в новое, значение которого противоположно исходному.
8 - Импликация
9 - логическая операция, которая объединяет два высказывания в одно новое, которое будет являться истинным тогда и только тогда, когда оба исходных высказывания истинны
10 - Конъюнкция
11 - ?
12 - ?
Объяснение:
Var
s1,s2,c:string;
i:integer;
begin
write('Type s1:');
readln(s1);
write('Type s2:');
readln(s2);
if length(s1)>length(s2) then
begin
for i:=1 to length(s1) do
if (s1[i]>='0') and (s1[i]<='9') then write(s1[i]);
writeln;
for i:=1 to length(s2) do
if ord(s2[i])>70 then write(s2[i]);
end
else
begin
for i:=1 to length(s1) do
if ord(s1[i])>70 then write(s1[i]);
writeln;
for i:=1 to length(s2) do
if (s2[i]>='0') and (s2[i]<='9') then write(s2[i]);
end;
end.
Пример ввода:
Type s1:Mi Zu
Type s2:MeL10N
Пример вывода:
MiZu
10