var
i, n: integer;
m: array[0..9] of boolean;
begin
for i := 0 to 9 do
m[i] := False;
read(n);
while n > 0 do
begin
m[n mod 10] := True;
n := n div 10
end;
for i := 0 to 9 do
if not m[i] then
Write(i, ' ')
end.
1 - True/False
2 - логическая операция, которая объединяет два высказывания в одно новое, которое будет являться истинным тогда и только тогда, когда оба исходных высказывания ложны.
3 - Конъюнкция
4 - X И Y И Z
5 - OR
6 - 1. Инверсия;
2. Конъюнкция;
3. Дизъюнкция;
4. Импликация;
5. Эквивалентность.
7 - логическая операция, которая преобразует исходное высказывание в новое, значение которого противоположно исходному.
8 - Импликация
9 - логическая операция, которая объединяет два высказывания в одно новое, которое будет являться истинным тогда и только тогда, когда оба исходных высказывания истинны
10 - Конъюнкция
11 - ?
12 - ?
Объяснение:
type z=array of integer;
var n,i: integer;
a: z;
f: boolean;
begin
readln(n);
i:=0;
f:=true;
setlength(a,i+1);
while n<>0 do begin
a[i]:=n mod 10;
i:=i+1;
setlength(a,i+1);
n:=n div 10;
end;
setlength(a,i);
for i:=0 to 9 do begin
for n:=0 to length(a)-1 do
if a[n]=i then begin
f:=false;
break;
end;
if f then write(i,' ');
f:=true;
end;
end.