Поставить буквы в алфавитном порядке — Pascal(Паскаль)

var
i:byte;
s:string;
c:char;
begin
write('Введите текст:');
readln(s);
for c:='a' to 'z' do
for i:=1 to length(s) do
 if (s[i]=c)or(UpCase(c)=s[i]) then write(UpCase(s[i]));
readln;
end.

Следующий вариант

var
i:byte;
s:string;
c:char;
begin
write('Введите текст:');
readln(s);
for c:='а' to 'я' do
for i:=1 to length(s) do
 if (s[i]=c)or(UpCase(c)=s[i]) then write(UpCase(s[i]));
readln;
end.

Leave a Comment

5 + 2 =