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.
Надо чтобы в лодку сели Бах и Гэ, а Вау и Ах должны поплыть без лодки, так как они плывут быстрее, и поэтому все успеют приплыть туда и вернуться обратно за 18 часов !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!