Даны натуральное число n и символы s1,...,sn. Получите все символы, расположенные до первого двоеточия (Pascal)

[Alex11223]

Ну если массив символов (array [1..N] of char), то единственная проблема — это ввод этих самых символов. Если пользователь вводит в консоли, то либо неудобно каждый символ тыкать Enter, либо сложнее с помощью readkey. После ввода надо просто в цикле найти символ ':' и запомнить его номер, а потом в другом цикле до этого номера делать с этими символами то, что требуется (вывести и т.д.).

Если через string, то код получения строки с результатом выше.

[Serge_Bliznykov]

если массив символов (array [1..N] of char), то единственная проблема — это ввод этих самых символов

не, это не проблема..
вариант 1 - использовать константный массив (ведь в задаче сказано - "даны N и последовательность символов", а не сказано, что они вводятся с клавиатуры):

const
 N = 15;
 S : array [1..N] of char = 'test:123:bugaga';
var
  i : integer;
begin
  Writeln('Нужная последовательность:');
  for i:=1 to N do begin
    Write(S[i]);
    if S[i]=':' then  break;
  end;
  Writeln;
  Readln; 
end.

вариант 2. вводить символы.
обеспечить ввод символов - это тоже не проблема:

const
 N = 10;
var
  S : array [1..N] of char;
  i : integer;
begin
  Writeln('Введите ',N,' символов и завершите ввод нажатием <Enter>');
  for i:=1 to N do
    Read(S[i]);
  Writeln;
  Writeln('Нужная последовательность:');
  for i:=1 to N do begin
    Write(S[i]);
    if S[i]=':' then  break;
  end;
  Writeln;
  Readln; 
end.

[Татьана]

Разобраться что-то не могу...(((

[Serge_Bliznykov]

Помогите!!!))))

чем?! что не так в вышепредложенных решениях?!!

[Татьана]

Я разобралась)Спасибо))))))))!!!
!

[Serge_Bliznykov]

в данной задаче, написанной Вами, не работает очистка экрана "Clrscr"????

во-первых, в моей программе нет очистки командой ClrScr;
во-вторых, если речь идёт о TurboPascal, чтобы работала эта команда - тогда в начале программы надо указать использование библиотеки Crt:

uses CRT;

[Татьана]

Я заметила, что ее там не было.Был мой "косяк" в том, что не посмотрела, что я не все "подключила".Спасибо еще раз за помощь!)