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

Question

Информатика

Павлюня

3 апреля, 09:51

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

+1

Ответы (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.