program text1;
uses crt;
var s:string[100];
st:string[10]; b:string;
a,z,i,j,m:integer;
begin
clrscr;
writeln('ўўҐ¤ЁвҐ бва®Єг');
readln(s);
a:=length(s);
for i:=1 to a do
begin
if (s[i])=(s[i+1]) then
begin
for j:=1 to m do
delete(s,i+1,j);
insert('(j)',s,i-1);
end;
end;
writeln(s);
readln;
readln;
end.
Тому кто поможет тысячу спасиб и + в репу гарантирован
Сообщение отредактировано: kvadrat -