Оно не будет повторяться,так как тут даже нету операторов для повтора.
01010100011001010111001101110100
Объяснение:
Можно через блокнот, Word...
Переводим на русский:
A или B и не C; подставляем:
Нет или да и не нет = нет или да и да.
Дальнейшее расписывание зависит от приоритета (обычно ставят приоритет И выше ИЛИ), но в любом случае получится или "нет или да", или "да и да", то есть результат - истина.
Переводим обратно на английский (интересно, при чём тут он?): true.
Var n,m:integer;
mn:set of integer;
b:boolean;
begin
write('n = '); readln(n);
write('m = '); readln(m);
mn:=[];
while n>0 do
begin
mn:=mn+[n mod 10];
n:=n div 10;
end;
b:=false;
while m>0 do
begin
if (m mod 10) in mn then b:=true;
m:=m div 10;
end;
if b then writeln('Да') else writeln('Нет');
end.
Пример:
n = 13579
m = 6541
Да