1. 

   DIADIA TOLIA New Member

   Составить программу позволяющую выяснить сколько раз встречается каждая буква алфавита во введённой строкеs.

    

   DIADIA TOLIA, 2 мар 2010

   #1
2. 

   МаруськА@ New Member

   Program gt;
   var a:string;
   p,i,l:longint;
   b:array[1..200]of longint;
   begin
   readln(a);
   l:=length(a);
   for i:=1 to l do
   begin
   p:=ord(a);
   b[p]:=b[p]+1;
   end;
   for i:=97 to 122 do
   begin
   write(b,' ');
   end;
   end.
   

    

   МаруськА@, 2 мар 2010

   #2

Ваше имя или e-mail:

Пароль:

Забыли пароль?

Запомнить меня