Програма пошуку кількості різних букв в слові

Pascal-програма пошуку кількості різних букв в слові.

program rizne;
var s:string;
k:real;
i,j,n:integer;
begin
k:=0;
readln(s);
for i:=1 to length(s) do begin
n:=0;
for j:=1 to length(s) do begin
if s[i]=s[j] then n:=n+1;
end;
k:=k+1/n;
end;
writeln(‘ ‘,k:2:4);
end.

Comments

comments