Помощь Bp7

  • Автор темы -
  • Дата начала
Статус
Закрыто для дальнейших ответов.

Гость
#1
Даны натуральное число n и символы S1, …, Sn (строка), среди которых есть двоеточия. Получить все символы строки, расположенные между первым и вторым двоеточием. Если вто-рого двоеточия нет, то получить все символы, расположенные после первого двоеточия

for i:=1 to n do
if s=':' then begin k:=i;break;end;
for i:=k+1 to n do begin
if s=':' then break;
write(s)
end;

и
MODULE a;
IMPORT StdLog,Strings;

PROCEDURE do*(s:ARRAY OF CHAR);
VAR i,j:INTEGER;
BEGIN
i:=0; Strings.Find(s,':',i,i);
j:=i+1; Strings.Find(s,':',j,j);
IF j=-1 THEN
j:=LEN(s);
END;
StdLog.Clear;
INC(i);
WHILE (i<j)&(s#CHR(0)) DO
StdLog.Char(s);INC(i);
END;
END do;

END a.
 
Статус
Закрыто для дальнейших ответов.