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

Ответы 2

  • //PascalABC.NET 3.2 сборка 1318//1Var  s:string;  c:char;  counter:integer;beginreadln(s);readln(c);while pos(c,s)<>0 do  begin    inc(counter);    delete(s,pos(c,s),1);  end;writeln(counter);end.Пример ввода:bananaaПример вывода:3//2Var  s:string;  i:integer;beginreadln(s);i:=2;while i<=length(s) doif s[i-1]=s[i] then delete(s,i,1) else inc(i);writeln(s);end.Пример ввода:saadПример вывода:sad
  • // 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.Printlnend.ПримерТекст: стеклянный оловянный длинношеее искусствостекляный оловяный длиношее искуство
    • Автор:

      mcconnell
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years