Даны натуральное число 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.
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.