Komentar

Jumat, 05 Juli 2013

Program Loop

Posted by M Habibie 20.04, under | No comments



procedure ulang(n : integer);
begin
   if n > 1 then
    ulang(n-1);

    writeln(n)
end;



BEGIN

  ulang(5)


END.

0 komentar:

Posting Komentar

Your Ip Address

Your IP Address

IP

Popular Post

Popular Posts