Строки, помогите, пож-та, решить Опции

[Летняя]

Разработать программу, которая для заданной строки s удаляет все символы x.

Сообщение отредактировано: Летняя - 2.01.2009 14:40

[Account]

Вот

uses crt;
var
s:string;
i:byte;
begin
clrscr;
readln(s);
i:=1;
while i<=length(s) do
if s[i]='x' then delete(s,i,1) else i:=i+1;
writeln(s);
readkey;
end.

Только это наскорую руку)))

Сообщение отредактировано: Account - 2.01.2009 15:35

[Летняя]

Account, огромное спасибо!!!!!)))))
Айра, просто я учусь на филологическом, и мозги у меня под другое заточены...хм

Сообщение отредактировано: Летняя - 3.01.2009 10:52