Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Ksiloffie
19.01.2023 12:38 •
Информатика
Введите два числа а и в. проверьте, есть ли у них одинаковые цифры.
Показать ответ
Ответ:
KristinaSagat55555
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 оценок)
Популярные вопросы: Информатика
отличник714
04.06.2020 19:28
17.Дано координати вершин п’ятикутника. Вивести на екран довжини найкоротшої і найдовшої його сторін. Нужен код в С++...
s2702e
23.05.2023 13:28
Установите соответствие между типами величин и их значениями. целое число,вещественное число,символьная величина,логическая величина. true,100, 14,53 ,14,53...
Shurt
04.11.2022 23:16
1.какая из перечисленных отраслей относится к тяжелой промышленности: а- машиностроение б- обувная промышленность в- пищевая промышленность. 2. в одну отрасль промышленности входят:...
lianagabrielya
20.02.2023 18:09
Товар ед. измерения базисный период отчетный период цена (руб.) объем продаж цена (руб.) объем продаж а кг 7,6 108 9,3 82 б л. 12,5 54 11,9 68 в шт. 13,9 91 13,2 106 вычислить общие...
Afakado
31.05.2020 08:27
Объясните смысл метафоры колыбель флота . в качестве аргументов используйте примеры из прочитанного текста....
диша4002
28.09.2022 06:11
Изложите в 7-10 предложениях свои мысли на тему связи обязанностей государства в отношении граждан и обязанностей граждан платить налоги...
fghjik
01.06.2022 21:14
25 какие процессы описывает линейная функция? какие процессы описывает квадратичная функция? примеры функциональных зависимости в реальных процессах ...
Milana000000111
16.06.2020 00:43
Напишите рассказ по одной из фотографий, 1. бегун сопернику поднятся. ( паралимпийские игры ) 2. собака пострадала от газа. (турция)...
fogive
01.05.2022 02:04
Вокруг дикой груши гудели пчелы. выписать словочитания...
Lucky0ne
27.06.2022 19:21
биения навыки высокого порядка 20 минут 1. прослушайте текст раз. наш век компьютеризации, век научно-технического прогресса знания необходимо каждому из нас. еще в семнадцатом веке...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.