Реферат: Лабораторная работа № 16

or (sl[1]='у')

or (sl[1]='ы')

or (sl[1]='э')

or (sl[1]='ю')

or (sl[1]='я')

then k1:=k1+1;

delete(sl,1,1);

until length(sl)=0;

end; {sravn}

procedure s4et(ok:boolean;s:string;var ko:integer);

var

sl:mas;

sl1:string[80];

k,i,j:byte;

k1:integer;

begin {s4et}

k1:=0;

trim(s);

s:=s+' ';

i:=0;

repeat

k:=pos(' ',s);

i:=i+1;

sl[i]:=copy(s,1,k-1);

delete(s,1,k);

until s='';

for j:=1 to i do

begin

sravn(sl[j],k1);