Введите два числа А и В. Проверьте, есть ли у них одинаковые цифры.
10-11 класс
|
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.
Другие вопросы из категории
Сколько бит информации будет нести в себе сообщение о том, что в этой серии было только пять выпадения монетки орлом, и все они следовали строго подряд. В ответе укажите целое число.
Читайте также
отрицательными.пример :введите два числа: 10-15,10*(-15)=-150
234 равна 10. Задача: сумма цифр ввести целое число и определить верно ли, что в его записи есть 2 одинаковые цифры. Пример: введите целое число 1234 нет введите целое число 1224 да
6.
2)Ввести целое число и определить количество черных и нечетных цифр.
Пример:
Введите целое число :12547
количество нечетных цифр:3
количество четных цифр:2
- сумма первых трёх цифр и сумма последних трёх цифр.2.Полученные два числа записываются друг за другом в порядке не убывания (без разделителей).Пример.Исходное число:15177.Поразрядные суммы: 7 ,15.Результат: 715.Определите, сколько из приведенных ниже чисел могут получиться в результате работы автомата.2626 2618 2624 2628 2826 2426 1826 610.В ответ запишите только количество чисел ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!!