записать программу.определение количество слов состоящих больше 3 символов

1

Ответы и объяснения

2012-04-20T20:56:11+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

var s:string;

n,k,i:integer;

Begin

  read(s);

  for i := 1 to length(s) do begin

    if s[i] in [" ",",","."] then begin

      if k>= 3 then n:=n+1;

      k:=0;

    end

    else k:=k+1;

  end;

  write(n);

End.