Задачи нужно решить на языке Паскаль. Изучаем string.
1.Вовочка скучая на уроке придумал себе игру. Он открывал книгу на любой странице. Выделял фрагмент текста, загадывал символ и подсчитывал сколько раз эта буква встречалась в фрагменте. Составить программу, которая подсчитывает, сколько раз загаданная буква встречается в строке.
2.Вася Пупкин очень плохо писал диктанты. Чаще всего Вася писал двойные буквы. Ваше задача написать программу которая удалит из текста повторяющиеся символы.
1.Вовочка скучая на уроке придумал себе игру. Он открывал книгу на любой странице. Выделял фрагмент текста, загадывал символ и подсчитывал сколько раз эта буква встречалась в фрагменте. Составить программу, которая подсчитывает, сколько раз загаданная буква встречается в строке.
2.Вася Пупкин очень плохо писал диктанты. Чаще всего Вася писал двойные буквы. Ваше задача написать программу которая удалит из текста повторяющиеся символы.
More Questions From This User See All
Answers & Comments
Verified answer
//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