В заданном тесте найдите количество трехбуквенных слов - Turbo Pascal

Формулировка задачи:

В заданном тесте найдите кол-во трехбуквенных слов. Слова отделены друг от друга пробелом Заранее большое спасибо


textual

Код к задаче: «В заданном тесте найдите количество трехбуквенных слов - Turbo Pascal»

var a,s:string;
    i,j,k:integer;
begin
readln(a); k:=0;
i:=0; j:=1;
s:='';
while i<ord(a[0]) do
begin
while (a[j]<>' ') and (j<=ord(a[0])) do
begin
s:=s+a[j];
inc(j);
end;
if a[j]=' ' then begin inc(j); inc(i); end;
if (s<>'')and(ord(s[0])=3) then inc(k);
i:=i+ord(s[0]);
s:='';
end;
writeln(k);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

12   голосов, оценка 3.833 из 5

Источник
Похожие ответы