Прог-ие 1К 2С / 2.2

unit Unit1;

interface

type

mas_str = array [1..70] of string;

var

mnog : set of char;

procedure vudelen(predl : string; var y : mas_str; var s : integer);

function s4et_bykv(slovo : string) : integer;

implementation

procedure vudelen;

var

i, len_pr : integer;

begin

s := 1;

i := 1;

len_pr := length(predl);

while i <= len_pr do

begin

if predl[i] <> ' ' then

y[s] := y[s] + predl[i]

else

begin

s := s + 1;

while (i + 1 <= len_pr) and (predl[i + 1] = ' ') do

i := i + 1;

end;

i := i + 1;

end;

end;

function s4et_bykv;

var

i, kol_f, len_sl : integer;

begin

kol_f := 0;

len_sl := length(slovo);

for i:= 1 to len_sl do

if slovo[i] in mnog then

kol_f := kol_f + 1;

s4et_bykv := kol_f;

end;

end.