Строки

[baff]

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

[Stilet]

с четными значениями кодов

Так что ли?

var s,e:string;i:byte;
begin
 s:='Hello World';
 for i:=1 to length(s) do
  if ord(s[i]) mod 2=0 then e:=e+s[i];
end.

[baff]

Ваш код у меня не работает

[Grag]

Но строка то должна получаться! Сделай сортировку символов в полученной строке и задача будет решена...
И вот эту строку кода

if ord(s[i]) mod 2=0 then e:=e+s[i];

перепиши вот так

if (ord(s[i]) mod 2)=0 then e:=e+s[i];

а еще лучше так

if not odd(ord(s[i])) then e:=e+s[i]