Вывести в алфавитном порядке все встречающиеся русские буквы. - Pascal ABC

Формулировка задачи:

Дан текст.Вывести в алфавитном порядке все встречающиеся в нем русские буквы. Задача дана для Паскаля авс. Не могу сообразить,как запрограммировать поиск букв.Надо использовать оператор string
program alfavit
var s:string;
    c:char;
    n,i,k,p:byte;
begin
 
writeln('Введите текст, окончаание ввода Enter');
s:='';
repeat
 
if c in ['а'..'я']


textual

Код к задаче: «Вывести в алфавитном порядке все встречающиеся русские буквы. - Pascal ABC»

Program task6;
Var Stri  : String;
Var Arr   : Array[1..255] of integer;
Var i,k,p : integer;
Begin
  write('Введите строку: ');
  readln(Stri);
  for i:=1 to length(Stri) Do Begin
      k:=Ord(Stri[i]);
      inc(Arr[k]);
  End;
  p:=0;
  For i:=192 to 223 Do Begin
    if Arr[i] <> 0 Then Begin
       write(chr(i));
       inc(p);
    End;
    if Arr[i+32] <> 0 Then Begin
       write(chr(i+32));
       inc(p);
    End;
  End;
  If (p=0) then Writeln('Русских букв нет');
End.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

7   голосов, оценка 4.000 из 5

Источник