Введите два числа А и В. Проверьте, есть ли у них одинаковые цифры.

На каком языке?

У меня в Студии пять стоит:)

c ++

Н-нет, я его не так хорошо знаю

да я вот тоже не особо!!!

var  s, s1: string;  i: integer;begin  readln(i);  s := IntToStr(i);  readln(i);  s1 := IntToStr(i);  for i := 1 to length(s) do    if (pos(s[i], s1) > 0) then      s1 := '-';  if (s1 = '-') then    writeln('Yes')  else    writeln('No');end.