Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Sambufer1
15.11.2021 21:06 •
Информатика
Введите два числа а и в. проверьте, есть ли у них одинаковые цифры.
Показать ответ
Ответ:
Lesawolk12
08.07.2020 07:45
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.
0,0
(0 оценок)
Популярные вопросы: Информатика
samirdebilGost
09.01.2020 12:32
Как связаны между собой понятия «энтропия» и «информация»? Могут ли они быть уподоблены потенциальной и кинетической энергии?...
Marsel200301
23.04.2020 09:05
Почему в качестве количественной меры энтропии и информации выбрана не функция вероятности, а ее логарифм?...
Lanatm12
07.10.2020 06:57
1. Какое число нужно написать вместо многоточия, чтобы цикл выполнился ровно 2 раза? i:=1; while i =... do begin writeln( Привет! ); i:=i+1 end; ответ: 8 2. Сколько раз будет выполнен...
Malika274
31.07.2022 13:54
Егер n = 5 болса, псевдокодтың орындалу нәтижесі неге тең болады? Алг сандар көбейтіндісі (арг бүт n, нәт бүт P) берілгені |n 0 қажет |P=1*2*3*...*n басы бүт i енгізу n; P:=1 цб...
Nastena102002
01.12.2020 19:37
Нужно найти вложенный цикл ...
Dave999
10.02.2021 15:37
Комектесіңдерш отініш...
dibalabagdasar
01.12.2021 22:37
Перечислите условия отбора, используемых в СУБД Access......
danilaandriyanov
27.12.2022 02:34
СтатистикаВася не любит английский язык, но каждый раз старается получить хотя бы четвёрку за четверть, чтобы оставаться ударником. В текущей четверти Вася заметил следующую закономерность:...
Udjfjwojzksnsnsnslkm
21.06.2020 10:28
Найти все натуральные трехзначные числа, сумма цифр которых кратна заданному натуральному числу B и само число также делится на B. (программа Паскаль)...
nosanchuk14
21.06.2020 10:28
Даны четыре натуральных числа. Вывести на экран то из них, сумма цифр которого - наибольшая (программа Паскаль)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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.