Удачи Ben я допишу на C++ , Pascal для доказательства Добавлено (08.06.2009, 00:03)
---------------------------------------------
Вот прога на c++ (MinGW):
#include <iostream>
using namespace std;
int main (){
long a[27]={0};
string c,s="abcdefghijklmnopqrstuvwxyz#";
cin>>c;
for (int i=0;c[i]!='.';i++)
a[c[i]-'a']++;
for (int i=0;i<=25;i++) if (a[i]>0) cout<<s[i]<<a[i]<<endl;
return 0;
}
Добавлено (08.06.2009, 00:06)
---------------------------------------------
Вот на pascal-e:
var
a: array [char] of longint;
s,t:String;
i:longint;
begin
readln(s);
t:='abcdefghijklmnopqrstuvwxyz';
for i:=1 to length(s) do
if s[i]='.' then break else inc(a[s[i]]);
for i:=1 to 26 do
if a[t[i]]>0 then writeln(t[i],a[t[i]]);
end.
Добавлено (08.06.2009, 00:08)
---------------------------------------------
я не такой
Добавлено (08.06.2009, 00:12)
---------------------------------------------
сказать честно на php я не такой псих , я в неё только учусь, но меня учит псих и он согласился помогать мне