Составьте программу,вычеркивающую из слова Х буквы,встречающиеся при написании слова Х ровно три раза.
//Pascal ABC.NET v3.1 сборка 1172
Var
s,c:string;
i,k,j,m:integer;
begin
readln(s);
k:=0;
m:=length(s);
i:=0;
while i<>m do
begin;
inc(i);
for j:=i to m do
if s[i]=s[j] then inc(k);
if k=3 then
begin;
c:=s[i];
while pos(c,s)<>0 do
delete(s,pos(c,s),1);
end;
k:=0;
m:=length(s);
end;
writeln(s);
end.
Пример ввода:
Панамка
Пример вывода:
Пнмк
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
