Удалить все запятые в строке

@Jooooohny · Регистрация: 09.09.2014

Студворк — интернет-сервис помощи студентам

Ребят помогите подредактировать что то не выходит, скорее всего я что не дописал

Pascal

program hi;
var
s,st: string;
i:integer;
begin
writeln ('Введите строку');
readln(s);
i:=1;
st:=' , ';
if s[i]=' , ' then 
s[i]:='  ';
writeln(s,st);
end.

@JokeR.BY · 08.12.2014, 18:41

Pascal

var
    s : String;
begin
    Write('s='); ReadLn(s);
    while Pos(',', s) > 0 do
        Delete(s, Pos(',', s), 1);
    WriteLn(s);
end.

@Jooooohny · 09.12.2014, 11:11 **[ТС]**

Спасибо.

@Jooooohny 0 / 0 / 0 Регистрация: 09.09.2014 Сообщений: 9
	09.12.2014, 11:11 [ТС]	3
	Спасибо. 0

Опции темы