Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  recursivo
Language: PASCAL
Code:
program exemplo;

uses crt;

procedure imprimir(A: integer);
begin
    if (A > O) then
    begin
        writeln(A);
        imprimir(A div 2);
    end;
end;

Begin
   clrscr;
   imprimir(40);
   readkey();     
End.
Comments: