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.

Answer 2

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

Answer 3

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