Question

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

Answer 1

//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

Answer 2

Для подсчета количества слов из трех букв в строке "Pascal" нужно пройтись по каждому слову в строке и проверить его длину. В данном случае, в строке "Pascal" есть только одно слово "Pascal" и оно состоит из шести букв, а не из трех. Поэтому количество слов из трех букв равно нулю.