USES Crt;
VAR
A: STRING [240]; KS, KB, N, I: INTEGER;
BEGIN
ClrScr;
Write('Введите тест '); ReadLn(A);
N:=Length(A);
KS:=0; KB:=0;
FOR I:=1 TO N DO
IF (A[I]=' ') OR (A[I]=',') OR (A[I]='.') THEN KS:=KS+1 ELSE KB:=KB+1;
IF (A[N]<>' ') AND (A[N]<>'.') AND (A[N]<>',') THEN KS:=KS+1;
WriteLn('Средняя длина слова = ',KB/KS:3:0);
END.
VAR
A: STRING [240]; KS, KB, N, I: INTEGER;
BEGIN
ClrScr;
Write('Введите тест '); ReadLn(A);
N:=Length(A);
KS:=0; KB:=0;
FOR I:=1 TO N DO
IF (A[I]=' ') OR (A[I]=',') OR (A[I]='.') THEN KS:=KS+1 ELSE KB:=KB+1;
IF (A[N]<>' ') AND (A[N]<>'.') AND (A[N]<>',') THEN KS:=KS+1;
WriteLn('Средняя длина слова = ',KB/KS:3:0);
END.