Pascal.в данной строке подсчитать количество слов из трех букв.

//Pascal ABC.NET 3.1 сборка 1219

Var
 s:string;
 k,i:integer;
begin
k:=0;
readln(s);
var ars:=s.Split;
for i:=0 to ars.Length-1 do
if length(ars[i])=3 then inc(k);
writeln(k);
end.

Пример ввода:
Some odd txt
Пример ввода:
2

Для решения этой задачи отбросим лишнее и оставим только данные нам факты:
1.Юре не хватает времени на туризм -> Юра не турист.
2. Врач сказал,что разделает увлечение сестры Юры -> Врач - турист.
3. У двух друзей нет нет букв из их имени ни в профессии, ни в увлечении.

Начнем с Тимура.Буквы из его имени есть во всех профессиях,значит к факту №3 он не относится.

Возьмем Юру. Если учитывать факт №3, то из увлечений ему подходит только бег, а из профессий - физик. Влад же у нас получается ,следуя факту №3 , Юрист, увлечение которого - регби. Тогда Тимур у нас является Врачом, который увлекается туризмом.
Решение верное,так как ни один из фактов не нарушен.

ответ: Влад - Юрист - Регби
            Тимур - Врач - Туризм
            Юра - Физик - Бег

Для решения этой задачи отбросим лишнее и оставим только данные нам факты:
1.Юре не хватает времени на туризм -> Юра не турист.
2. Врач сказал,что разделает увлечение сестры Юры -> Врач - турист.
3. У двух друзей нет нет букв из их имени ни в профессии, ни в увлечении.

Начнем с Тимура.Буквы из его имени есть во всех профессиях,значит к факту №3 он не относится.

Возьмем Юру. Если учитывать факт №3, то из увлечений ему подходит только бег, а из профессий - физик. Влад же у нас получается ,следуя факту №3 , Юрист, увлечение которого - регби. Тогда Тимур у нас является Врачом, который увлекается туризмом.
Решение верное,так как ни один из фактов не нарушен.

ответ: Влад - Юрист - Регби
            Тимур - Врач - Туризм
            Юра - Физик - Бег