Ответы на вопрос:
Pascalвыделить код1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 uses crt; var s,s1: string; c: char; i,j,k: byte; begin writeln('введите строку'); read(s); s1: =s; {сделаем копию строки, если строка не нужна, то можно и не делать} i: =1; while i< length(s1) do begin c: =s1[i]; {запомним символ} k: =0; for j: =length(s1) downto i+1 do{с конца строки ищем такие же} if s1[j]=c then{если есть} begin k: =1; {фиксируем} delete(s1,j,1); {удаляем} end; if k=1 then delete(s1,i,1){если не один, удаляем} else i: =i+1; {иначе проверяем следующий} end; writeln('символы по 1 разу'); if s1='' then write('таких символов нет') else write(s1); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Noname01020304.02.2022 00:43
-
Ксения20171111205.03.2023 21:20
-
marsimonenko201725.12.2020 11:51
-
kamilla19825.07.2021 07:08
-
mahachkala114.09.2020 14:32
-
LFZ112.08.2022 02:32
-
яблоко5016.12.2021 17:10
-
камила50830.08.2021 03:16
-
anystti16.04.2023 00:59
-
Kfhjrhnf29.04.2022 03:06
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.