Необходимо вычислить количество слов одинаковой длины.
Например слов диной в один символ - столько-то, в два символа столько то, в три символа - столько то.
PROGRAM PRP7;
VAR
f:text;
s:string;
i:INTEGER;
n:INTEGER;
BEGIN
ASSIGN(f,'in.txt');
RESET(f);
n:=0;
WHILE NOT EOF(f) DO
BEGIN
READLN(f,s);
FOR i:=1 TO LENGTH(s) DO
IF (s[i-1]=' ') OR (i=1) THEN
BEGIN
n:=n+1;
END;
END;
CLOSE(f);
WRITELN;
WRITELN(n);
END.
Количество слов в файле всего определить получилось, а вот как посчитать количества слов с одинаковыми количествами букв не знаю.