натуральное число и символы

[Милашка:)]

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

[andrewpalkin]

ну и что уже написано , можно глянуть ? и что именно не получается ?

[Mad_Cat]

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

[kaljan775]

#include <iostream>
#include <string.h>

using namespace std;

int main(){
int n;
char * text=new char [n+1];
cin.getline(text,sizeof(text),'\n');
int strl=strlen(text);//чтобы не затормаживать работу программы
int perDvo;//индекс первого двоеточия
for(perDvo=0;perDvo<strl;Perdvo++)
 if (text[perDvo]==':') break;//как только находим двоеточие - цикл прерывается, в переменной хранится индекс
for (int i=perDvo+1;i<strl;i++){//начиная со следующего после двоеточия символа выводим символы
 if (text[i]==':') break;//если найдено двоеточие - выходим из цикла
 cout<<text[i];//выводим символы
}
cout<<endl;
system("pause");
}

[Stilet]

Ну тады и я свои пять коп для разнообразия

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[i]#CHR(0)) DO
  StdLog.Char(s[i]);INC(i);
 END;
END do;

END a.

[Милашка:)]

var
 S: string;
Begin
 S:='dfds fds :12345 fdfs';
 S:=copy(S,pos(':',S)+1,length(S));
 if pos(':',S)<>0 then
  S:=copy(S,1,pos(':',S)-1);
 writeln(S);
End.

а дальше?

[Hacker19_90]

А что ваш пример не работает???

[Милашка:)]

Надо ввод строки написать и так еще по мелочи....а так сказать навыка не хватает))))и в BP7 надо сделать а он какой то не такой как ABS

[Son Of Pain]

А дальше перед последним end дописать readln;

и вместо S:='dfds fds :12345 fdfs'; написать readln(s); чтобы работал ввод

[Hacker19_90]

program forum;
uses crt;
var
    S: string;
begin
    clrscr;
    writeln ('Insert string:');
    readln (S);
    if pos(':',S) = 0 then
    begin
        writeln ('":" not find');
        writeln (s);
        ReadKey;
        Exit;
    end;
    S:=copy(S,pos(':',S)+1,length(S));
    if pos(':',S)<>0 then
        S:=copy(S,1,pos(':',S)-1);
    writeln(S);
    ReadKey;
End.