Предмет: Информатика,
автор: tutyfruty0731
pascal.в данной строке подсчитать количество слов из трех букв.
Ответы
Автор ответа:
0
//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
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
Похожие вопросы
Предмет: Физика,
автор: Аноним
Предмет: Английский язык,
автор: ShKamila01
Предмет: Русский язык,
автор: Аноним
Предмет: Обществознание,
автор: karankevich99
Предмет: Математика,
автор: natali198324