Страница 1 из 1
Паскаль. Строки.
Добавлено: 26 фев 2011, 21:05
Торопунька
Определить количество запятых в строке, удалить её часть, заключённую между первой и второй запятыми. Заменить оставшиеся запятые тремя вопросительными знаками.
Спасибо заранее
Re: Паскаль. Строки.
Добавлено: 27 фев 2011, 01:12
Sheka
Сделаю! 255507394
Re: Паскаль. Строки.
Добавлено: 27 фев 2011, 16:22
Торопунька
спасибо. отпишу в аську
Re: Паскаль. Строки.
Добавлено: 01 мар 2011, 15:01
flash1989
Пиши, сделаю
icq: 588002847
email:
flash_1989@ukr.net
skype: rfhfcerf
Re: Паскаль. Строки.
Добавлено: 10 мар 2011, 11:54
Oleg_Rus
если актуально - стучи в аську.
Re: Паскаль. Строки.
Добавлено: 11 мар 2011, 22:55
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.
Держи на здоровье =)