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

Question

Информатика

Асюта

26 марта, 01:17

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

+4

Ответы (1)

Знаете ответ на вопрос?

Альберта · 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.