{определяется число разных букв}
var s:string;
 r:real;
 i,j,n:integer;
begin
 r:=0;
 {вводим слово}
 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 inc(n);
 end;
 r:=r+1/n;
 end;
 writeln('количество различных букв = ', r:1:0);
end.


 Похожие публикации
2019-01-20 • Просмотров [ 51 ]