👤

Va rog mult ajutor, realizati un subprogram recursiv cu functie care sa calculeze numarul de silabe 'ma' al unui cuvint dat.

Răspuns :

function fun(s: string): real;var     i, j, k: integer;     res: real;
begin     readln(s);     res := 0;     for i:= 1 to Length(s) do     for j:= 1 to Length(s) do     begin          if (s[i] = 'm')  then          if (s[j] = 'a')  then          if (s[j-1]=s[i]) then          res := res + 1;          k:=1;          end;          if (k=1) then //sa nu fie am          writeln('asdad');          res := res/2;     fun := res;end;
begin     writeln(Fun('ma'));end.