Meafyufot
5 год назад
Задачи нужно решить на языке Паскаль. Изучаем string.1.Вовочка скучая на уроке придумал себе игру. Он открывал книгу на любой странице. Выделял фрагмент текста, загадывал символ и подсчитывал Как узнать сколько раз эта буква встречалась в фрагменте. Составить программу, которая подсчитывает, Как узнать сколько раз загаданная буква встречается в строке.2.Вася Пупкин очень плохо писал диктанты. Чаще всего Вася писал двойные буквы. Ваше Задание написать программу которая удалит из текста повторяющиеся символы.
ОТВЕТЫ
Auttenberg Sofia
Oct 24, 2020
//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
//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
663
Смежные вопросы:
