Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
lolomka109
18.12.2022 09:04 •
Информатика
(в паскале написать программу) оставьте в строке только первые вхождения букв, все повторяющиеся буквы удалите. например, исходное слово «кроссворд» (или «missisipi»), результат «кросвд» (или «misp»).
Показать ответ
Ответ:
Barbara123456
01.10.2020 20:50
Var
i,x:integer;
s:string;
begin
readln(s);
for i:=length(s) downto 1 do
begin
x:=pos(s[i],s);
if x<>i then delete(s,i,1);
end;
writeln(s)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
1234567890857
08.09.2021 03:23
Найдите произведение чисел от одного до n...
Visiting456
08.09.2021 03:23
Составьте алгоритм получения из числа 1 число 17. (оптимальный решения) 1 команда: прибавь 2 2 команда: умножь на 2...
talibansky
26.01.2020 00:33
Составить программу, которая выделяет отдельные слова и числа из введенной пользователем строки. словом считается последовательность букв, разделяемых одним или несколькими...
Pomogite23102017
26.01.2020 00:33
Перевод числа 0000111100110 в шестнадцатеричную систему счисления перевод числа 11001110010101 в десятичную систему счисления число 38629 перевод в двоичную систему....
casha0032
09.05.2020 04:08
Задан путь к файлу c: \text\primer\proba.doc. назовите имя каталога, в котором находится этот файл...
Danyaizbanu
09.05.2020 04:08
Подбери такое слово, чтобы оно было одновременно и окончанием для фиолетового, и началом для зеленого слов....
5434689
18.09.2020 22:04
Перечислите основные возможности растрового графического редактора paint...
aruzhanomash
18.09.2020 22:04
Составить программу, которая определяет, есть ли среди цифр целого трёхзначного числа одинаковые...
rega1122
11.07.2021 22:38
1.У исполнителя Квадратор две команды, которым присвоены номера: 1) вычти 4 2) возведи в квадрат Первая из них уменьшает число на экране на 4, вторая возводит его во вторую...
xoxlogun1
03.01.2022 04:16
На вход программы поступает последовательность целых чисел, которая заканчивается нулем (ноль не входит в последовательность). Требуется найти сумму элементов этой последовательности....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i,x:integer;
s:string;
begin
readln(s);
for i:=length(s) downto 1 do
begin
x:=pos(s[i],s);
if x<>i then delete(s,i,1);
end;
writeln(s)
end.