Информатика, опубликовано 2018-08-22 18:06:29 by Гость

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

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.