Введите два числа А и В. Проверьте, есть ли у них одинаковые цифры.
Введите два числа А и В. Проверьте, есть ли у них одинаковые цифры.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы