Про множественный тип, ну как же Опции

[Анютка]

Вроде девушка я не тупая, но не могу понять
Условие:

Определить какие символы встречаются в строке и посчитать сколько раз встречается каждый из них. В алфавитном порядке вывести обнаруженные символы и кол-во их вхождений в строку.

[Анютка]

Получилось:

program volvo;


var a : array[0..255] of byte;
procedure count(s : string);
var i : integer;

begin
       for i:=1 to length(s) do inc(a[ord(s[i])]);

end;

procedure WriteAr;


       var i : integer;
      begin

        for i:=0 to 255 do
  if (a[i]<>0) then
    Writeln(chr (i),'   -   ',a[i], ' раз ');readln;
       end;

       var b:string;


begin

     writeln ('Введите строку: ');readln(B);
       count (B); WriteAr; readln;  end.

Поправьте, если что не так ...

Сообщение отредактировано: Altair - 27.10.2005 23:50