Задачи нужно решить на языке Паскаль. Изучаем string. 1.Вовочка скучая на уроке придумал себе игру. Он открывал книгу на любой странице. Выделял фрагмент текста, загадывал символ и подсчитывал сколько раз эта буква встречалась в фрагменте. Составить программу, которая подсчитывает, сколько раз загаданная буква встречается в строке. 2.Вася Пупкин очень плохо писал диктанты. Чаще всего Вася писал двойные буквы. Ваше задача написать программу которая удалит из текста повторяющиеся символы.
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
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
