Нужно решить на языке паскаль. изучаем string. 1.вовочка скучая на уроке придумал себе игру. он открывал книгу на любой странице. выделял фрагмент текста, загадывал символ и подсчитывал сколько раз эта буква встречалась в фрагменте. составить программу, которая подсчитывает, сколько раз загаданная буква встречается в строке. 2.вася пупкин плохо писал диктанты. чаще всего вася писал двойные буквы. ваше написать программу которая удалит из текста повторяющиеся символы.

171

326

Посмотреть ответы 3

Ответы на вопрос:

anelya1429

Информатика

4,4(11 оценок)

//pascalabc.net 3.2 сборка 1318 //1 var s: string; c: char; counter: integer; begin readln(s); readln(c); while pos(c,s)< > 0 do begin inc(counter); delete(s,pos(c,s),1); end; writeln(counter); end. пример ввода: banana a пример вывода: 3 //2 var s: string; i: integer; begin readln(s); i: =2; while i< =length(s) do if s[i-1]=s[i] then delete(s,i,1) else inc(i); writeln(s); end. пример ввода: saad пример вывода: sad

nikitafonarik05

Информатика

4,7(95 оценок)

// pascalabc.net 3.2, сборка 1379 от 21.01.2017 // внимание! если программа не работает, обновите версию! begin var s: =readlnstring('текст: '); var c: =readlnchar('буква: '); writeln('буква встречается ',s.where(p-> p=c).count,' раз(а)') end. пример текст: а роза упала на лапу азора буква: а буква встречается 8 раз(а) // pascalabc.net 3.2, сборка 1379 от 21.01.2017 // внимание! если программа не работает, обновите версию! begin var s: =readlnstring('текст: '); var m: =s.matchvalues('(\w)\1{1}').distinct; foreach var cc in m do s: =s.replace(cc,cc[1]); s.println end. пример текст: стеклянный оловянный искусство стекляный оловяный длиношее искуство

Thanksor

Информатика

4,6(88 оценок)

ответ:авыавы

аыв

Объяснение:мсч

выавыывыфвф

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.