Структуры данных. Строки - 22 стр.

UptoLike

ВУЗ: 

ЮФУ | Ростов-на-Дону

Составители: 

Рубрика: 

24
function S102(var S: string):integer;
var i,n,k:integer;
flag:boolean; {признак начала строки или пробела}
begin
n:= ord(S[0]);
k:=0;flag:=true;
for i:=1 to n do
if S[i]=' ' then
flag:=true
else
if flag then
begin
k:=k+1;
flag:=false
end;
S102:=k
end;

Страницы