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

Question

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

Answer 1

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.

Comments

это в паскале

---

Извините а вы не подскажите как это будет выглядеть в Visual Studio

---

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

---

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

---

c ++

---

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

---

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