Ввести последовательность символов и определить число различных букв данной строки
program koli4estvo_razli4nih_bukv;
uses crt;
var s, a : string;
r : real ;
i,j,n,x:integer;
begin
clrscr;
writeln (' vvedite stroku '); readln(s);
for i:=1 to length(s) do begin
if s[i] in ['a'..'z'] then begin inc(x); a[x]:=s[i]; end; end;
begin
for i:=1 to x do
begin
n:=0;
for j:=1 to x do begin
if a[i]=a[j] then inc(n)
end;
r:=r+1/n;
end;
end; writeln;
writeln(' koli4estvo razli4nih bukv = ', r:1:0);
readkey;
clrscr;
end.
Может кто-нибудь объяснить, что происходит в строке r:=r+1/n ?
Сообщение отредактировано: Vinsent90 -