Паскаль. Строки.

[Торопунька]

Определить количество запятых в строке, удалить её часть, заключённую между первой и второй запятыми. Заменить оставшиеся запятые тремя вопросительными знаками.

Спасибо заранее

[Sheka]

Сделаю! 255507394

[Торопунька]

спасибо. отпишу в аську

[flash1989]

Пиши, сделаю
icq: 588002847
email: flash_1989@ukr.net
skype: rfhfcerf

[Oleg_Rus]

если актуально - стучи в аську.

[kirl0g]

Код: Выделить всё

var a,b:string;
i,s,k,m,m1:integer;
c:array[1..100] of integer;
begin
s:=0;
Writeln(' Enter STR');
readln(a);
for i:=1 to length(a) do
begin
if a[i]=',' then
begin
s:=s+1;
c[s]:=i;
end;
end;
delete(a, c[1], (c[2]-c[1]));
for i:=1 to length(a) do
begin
if a[i]=',' then
begin
delete(a, i, 1);
insert('???',a,i);
end;
end;
writeln(a);
end.

Держи на здоровье =)