Question

Составить программу обработки данной строки, позволяющую выписать все знаки сравнения и все скобки, сохранив их последовательность.

Answer 1

program string_1;
const srav_sk='<>=(){}[]';
var s:String; i:Integer;
begin
   Writeln('Введите строку:'); Readln(s);
   for i:=1  to Length(s) do
      if Pos(s[i],srav_sk)<>0 then  write(s[i]);
   Readln
end.