Задан текст из латинских букв. Вывести в алфавитном порядке все буквы, которые встречаются в тексте- Pascal(Паскаль)

uses crt;
const alf:string[52]='AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz';
var s:string;
    i,j:byte;
begin
clrscr;
writeln('Введите строку из латинских символов');
readln(s);
writeln('Символы по алфавиту');
for i:=1 to length(alf) do
for j:=1 to length(s) do
if alf[i]=s[j] then write(alf[i]);
readln
end.

Leave a Comment

− 4 = 2