Код
program lab10_1;
var st:string;
i,j:integer;
begin
writeln('Enter small letters');
readln(st);
for i:=1 to 322 do {???}
for j:=1 to 100 do
if ord(st[j])=i then
write (st[j]);
readln;
end.
Добавление: просто вводишь латинские буквы в разброс, а программа их упорядычивает по алфавиту(вот такие мы ,химики неграмотные )
Сообщение отредактировано: annna -