tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
(в паскале написать программу)
(в паскале написать программу) оставьте в строке только первые вхождения букв, все повторяющиеся буквы удалите. например, исходное слово «кроссворд» (или «missisipi»), результат «кросвд» (или «misp»).
Рома3762378433
3 06.06.2019 17:10
0
Ответы
Caxap03
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Alisa48329
03.04.2022 15:51
складіть математичну модель і блок-схему.Туристична група за першу годину пройшла 7 км,а за кожну наступну годину проходила на 1 км менше ніж за попередню Скоіьки часу потрібно групі...
Asyu666
03.04.2022 15:37
Решите в питоне Костя выбирает, по какой дороге пойти от дома до школы: по первой или второй. Первая Косте гораздо удобнее. Но на обеих дорогах сидит по одному животному. Это может...
Romays
19.05.2020 22:12
Переведите число 71 из восьмеричной в двоичную...
nebeca
19.05.2020 22:12
Умоляю, я вообще не понимаю...
farita1
12.03.2021 13:49
4. Напишите программу, которая решает следующую задачу. Ввести целое число. Вывести это число, увеличенное в 11 раз. Ввод и вывод данных выполнить с пояснением....
MrCrative25
12.03.2021 13:50
ПАмАгИтЕ мне нужно выполнить. нужно установить соответствия...
НaИзи
12.03.2021 13:50
Для изготовления одного чайника нужно Р граммов, одной тарелки- С граммов сырья. Составьте программу, которая рассчитывает, сколько сырья требуется для изготовления А штук чайников,...
мика0955
12.03.2021 13:51
Какой будет результат выполнения str(88)...
pakskina77p0byhm
12.03.2021 13:51
( ) Заполни таблицу, используя рисунок...
Pizetiv4ik
16.05.2019 11:51
Как описать на языке паскаль строку в 20 символов? ...
Популярные вопросы
Основная проблема образование поверхностных океанических течений...
1
Сделать номер 1 , ничего сложного...
1
Написать пять слов с проверкой с орфографического словаря...
3
Отзыв про рассказ «человек на часах» объяснить свою точку зрения, чтобы отзыв был...
1
Установите соответствие между названием вещества и реагентами с которыми это вещество...
3
20 які права надав король хартією різним верствам ...
3
Впорядкуй літири (ирактантад - околнидильх антлепи...
3
Установите соответствие между названием вещества и реагентами с которыми это вещество...
3
Лфудболисть ю.маркова 5вопросов и ответы нужны...
2
Сколько решений имеет уравнение...
2
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.