Предмет: Информатика, автор: safon86

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

Ответы

Автор ответа: HRAshton
0
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.
Автор ответа: HRAshton
0
У меня в Студии пять стоит:)
Автор ответа: safon86
0
да я вот тоже не особо!!!
Похожие вопросы
Предмет: Алгебра, автор: ann88579206