Теперь уже PascalABC.Net 3.2 var s:string; i:integer; begin readln(s); for i:=1 to s.Length do begin if ((s[i]=')') or (s[i]='(') or (s[i]='>') or (s[i]='<') or (s[i]='=')) then write(s[i]); end; end. Я надеюсь, <>=() - это все знаки, которые вы перечислили?
var s:string;
i:integer;
begin
readln(s);
for i:=1 to s.Length do begin
if ((s[i]=')') or (s[i]='(') or (s[i]='>') or (s[i]='<') or (s[i]='=')) then write(s[i]);
end;
end.
Я надеюсь, <>=() - это все знаки, которые вы перечислили?
// Внимание! Если программа не работает, обновите версию!
begin
ReadlnString('Введите строку:').MatchValues('[()=<>]').Println('')
end.
Пример
Введите строку: Пусть F(x)=3a/x+(x-1)>5x/(2-x), тогда ...
()=()>()