Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  as
Language: PASCAL
Code:
program Actividad8;
var a,b,r: integer;
     function alfa(j:integer):integer;
     begin
       if (j=1) then alfa := -1
       else if (j mod a = 0) then alfa := - alfa(j div a)
       else alfa := 2 * alfa (j +b);
     end;
begin
       a:=2;
     b:=1;
     r := alfa(3);
end.          
          
          
Comments: