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

296

328

Посмотреть ответы 2

Ответы на вопрос:

Gancha163

Информатика

4,7(70 оценок)

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