12.02.2013, 20:41 | #1 (permalink) |
Member
Регистрация: 09.12.2012
Сообщений: 45
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Строки
Program a4; var st:string; i,k,n1,n2,t1,t2:integer; begin writeln(' text'); readln(st); k:=length(st); for i:=1 to k do begin if st[i]='(' then n1:=i; if st[i]=')' then n2:=i; end; for i:=1 to k do begin if st[k-i]=' ' then t1:=i; if st[i]=' ' then t2:=i; end; for i:=1 to k do begin a:=copy(st,n1+1,t1-n1-1); delete(st,n1+1,t1-n1-1); здесь у меня тупик. помогите разобраться |
12.02.2013, 20:41 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Скорее всего тут можно найти ответ Строки Строки в С |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|