Определить среднюю длину слова в тексте (программа Паскаль)

Question

Определить среднюю длину слова в тексте

Answer 1

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.