Цитата:
Сообщение от ИриSka-147
исправила ,и нет мне счастья
|
Так.
Ну либо Вы не то исправили, либо у Вас какой-то глючный Паскаль.
Вот что сделал я.
1. Программа:
Код:
Uses CRT;
Var
s:string;
Procedure RAR(var s:string);
var
s1,s2: string;
i,j,k: integer;
begin
s1:='';
i:=1;
while i<=length(s)-1 do
begin
if s[i]=s[i+1] then
begin
k:=1;
j:=i;
repeat
k:=k+1;
j:=j+1;
until s[j]<>s[j+1];
str(k,s2);
s1:=s1+s[i]+'('+s2+')';
i:=i+k;
end
else
begin
s1:=s1+s[i];
i:=i+1;
end;
end;
if s[length(s)]<>s[length(s) - 1] then s1:=s1+s[length(s)];
s:=s1;
end;
Begin
write('Enter the string: ');
Readln(s);
RAR(s);
write('Compressed string: ', s);
ReadKey
End.
2. Результаты: