Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Gbr330
05.07.2021 04:38 •
Информатика
Ввести натуральное число и определить, какие цифры встречаются несколько раз.(турбо паскаль)
Показать ответ
Ответ:
sashalyubimenko
20.06.2020 22:10
Var a: string;
i, j: integer;
c: char;
begin
readln(i);
a := inttostr(i);
for i := 1 to length(a) do
begin
c := a[i];
for j := 1 to length(a) do
begin
if a[i+j] = c then writeln(a[j+i]);
end;
end;
end.
Вот такие пироги х)
0,0
(0 оценок)
Популярные вопросы: Информатика
Ааааааааввв
31.01.2021 08:22
Делаю проект. нужна информация по теме /цель 3d моделирования . работа не пыльная, а много...
alinatima32
19.10.2021 17:15
Синформатикой, решить у 1, 2 и 3-го номер 7...
almar80
12.08.2021 02:07
Напишите, , программу на c++ вот условие: напишите программу, которая выводит цифры, встречающиеся во входной последовательности, в порядке увеличения частоты их встречаемости....
Троцкий1
14.05.2022 23:02
Сформировать массив из 30 элементов, заполнить его случайными числами из [-100; 100], распечатать его в строчку. найти и вывести на экран минимальный элемент этого массива...
swvw
01.02.2023 01:20
Укажите какой файл вы откроете чтобы просмотреть демонстрационный ролик...
какахааа
09.09.2022 16:10
Даны натуральные числа x и y. вычислить произведение x*y, используя лишь сложение. язык программирования: паскаль....
янннак
18.06.2022 09:07
Решить на питоне , 50 : напишите программу, которая в последовательности целых чисел определяет разность максимального и минимального чисел. программа получает на вход...
phannastarichenko
07.06.2020 02:59
Составить блок схему, и написать программный код решения линейного уравнения на языке си. 19z=38+6 *19...
Аянезнаю11
14.11.2022 01:55
Неисчерпаемый источник информации в сети это...
Макс1111111f
15.09.2020 01:18
9 8.5.1.1 Imagine you visited London. Write an email to your English friend (100-140 words). Write: where you went - who with – what you saw and did there - how you got...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i, j: integer;
c: char;
begin
readln(i);
a := inttostr(i);
for i := 1 to length(a) do
begin
c := a[i];
for j := 1 to length(a) do
begin
if a[i+j] = c then writeln(a[j+i]);
end;
end;
end.
Вот такие пироги х)