Вывести все буквы в строке в алфавитном порядке

@DJ Дина · Регистрация: 26.12.2011

Author24 — интернет-сервис помощи студентам

Вывести все используемые в строке А буквы в алфавитном порядке (для простоты рассматривать строчные буквы латинского алфавита).

@КонецСвета · 14.01.2012, 20:50

Pascal

uses crt;
var s: string;
    i,j: integer;
begin
write('s=');
readln(s);
write('s=');
for j:=97 to 122 do
    for i:=1 to length(s) do
        if ord(s[i])=j then write(s[i]);
readln;
end.

@DJ Дина 4 / 0 / 0 Регистрация: 26.12.2011 Сообщений: 36
		1
	Вывести все буквы в строке в алфавитном порядке 14.01.2012, 20:39. Показов 1445. Ответов 1 Метки нет (Все метки) Вывести все используемые в строке А буквы в алфавитном порядке (для простоты рассматривать строчные буквы латинского алфавита). 0

	14.01.2012, 20:50

Вывести все буквы в строке в алфавитном порядке

Решение