Pascal function that returns a power of 10

function pow10(exponent:byte):longint;
var  p:longint; {this is the number where we will store the result}
     i:byte;
begin
 p := 1;
 for i := 2 to exponent do
  begin
   p := p * 10;
  end;
 pow10 := p;
end;

Leave a Reply

Your email address will not be published. Required fields are marked *

By continuing to use the site, you agree to the use of cookies. more information

The cookie settings on this website are set to "allow cookies" to give you the best browsing experience possible. If you continue to use this website without changing your cookie settings or you click "Accept" below then you are consenting to this.

Close