Дана строка символов. Если в ней есть символ ‘+’, удалить все символы, предшествующие ему. Если такого символа нет, преобразовать строку, изменив порядок следования символов на обратный.
Код:
var s,t:string;
n,k,i:integer;
c:char;
begin
s:=Edit1.Text;
n:=Length(s);
k:=0;
t:='';
for i:=1 to n do begin
if c=#43 then Delete(s,1,i-1);
end;
else
c:=s[i];
t:=c+t;
end;
Edit2.Text:=inttostr(k);
Edit3.Text:=t;
end;
end.
Админ: Пользуемся тегами для оформления кода!
на else все время ошибку выдает, помогите пожалуйста сделать