recurs2.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 21 行

program pr42d;
var v:array[1..100] of integer;
    n,k,i:integer;
function suma(i:integer):integer;
begin
if i=n+1 then suma :=0
         else if (i mod k=0) and (v[i] mod 2=0) then
                                            suma:=v[i]+suma(i+1);
              suma:=suma(i+1);

end;
begin
write('n=');readln(n);
write('k=');readln(k);
for i:=1 to n do
                begin
                write('v[',i,']=');readln(v[i]);
                end;
write (suma(v[1]));
readln;
end.