На вход программы произвольные алфавитно-цифровые символы. ввод этих символов заканчивается точкой. требуется напечатать последовательность строчных букв ('a' 'b' 'z') из входной последовательности и частот их повторения. печать должна происходить в алфавитном порядке. python входные данные fhbkbfshfm. выходные данные b 2 f 3 h 2 k 1 m 1 s 1

var s:string;

a:array['a'..'z'] of integer;

i:integer; c:char;

begin

writeln('Введите строку:');

readln(s);

for c:='a' to 'z' do a[c]:=0;

for i:=1 to length(s) do

 if (s[i]>='a')and(s[i]<='z') then a[s[i]]:=a[s[i]]+1;

for c:='a' to 'z' do

 if a[c]>0 then writeln(c,' ',a[c]);

end.

program z_1;

var

 a, b: array [1..3] of Integer;

 i, imax, btmp: Integer;

 ine: boolean;

Begin

 for i := 1 to 3 do begin

   Read (a [i]);

   b [i] := 0;

 end;

 ine := False;

 for i := 1 to 3 do begin

   if a [i] mod 3 = 0 then begin

     b [i] := a [i];

     Ine := True;

   end else

     b [i] := 0;

 end;

 if ine then begin

   imax := 1;

   for i := 2 to 3 do

     if b [i] > b [imax] then

       imax := i;

   btmp := b [imax];

   b [imax] := b [1];

   b [1] := btmp;

   if b [2] < b [3] then begin

     btmp := b [2];

     b [2] := b [3];

     b [3] := btmp;

   end;

   WriteLn;

   for i := 1 to 3 do

     if b [i] <> 0 then

       Write (b [i], ' ');

 end else

   WriteLn ('Значений нет.');

 ReadLn;

 ReadLn;

end.

program z_1;

var

 a, b, c, k, t: integer;

begin

 k := 3;

 Read(a, b, c);

 if Abs(a) mod 3 <> 0 then

   k := 2;  

 if Abs(b) mod 3 = 0 then

 begin

   if k = 2 then

     a := b

 end

 else

   Dec(k);

 if Abs(c) mod 3 = 0 then

 begin

   if k = 1 then

     a := c

   else if k = 2 then

     b := c;

 end

 else

   Dec(k);

 case k of  

   0: Write('Значений нет');

   1: Write(a);

   else

   begin

     if b > a then

     begin

       t := a;

       a := b;

       b := t;

     end;

     if k = 3 then

     begin

       if c > b then

       begin

         t := b;

         b := c;

         c := t;

       end;

       if b > a then

       begin

         t := a;

         a := b;

         b := t;

       end;

       Write(a, ' ', b, ' ', c);

     end

     else

       Write(a, ' ', b);

   end;

 end

end.

Если отрицательными числа быть не могут, можно Abs( ) убрать