🚀 go-pugleaf

$B$3$s$K$A$O!#(J

> $B$H$7$F$d$k$H$3$m$r!"(JPascal$B$G(J
> 
> 	var
> 		a:real;
> 		b:Integer;
> 
> 	begin
> 		a:=log10(250);
> 		b:=100+Integer(a);
> 	end;	
> $B$H$7$F$d$l$P$$$$$H;W$C$?$N$G$9$,!"!I@5$7$/$J$$%-%c%9%H!I$G%3%s%Q%$%k%(%i(J
> $B!<$K$J$C$F$7$^$$$^$9!#(J

$B!!(Jreal$B7?$OIbF0>.?tE@$r07$($k7?$G!"(JInteger$B7?$O@0?tItJ,$r07$&7?$J$N$G!"(J
$B$=$N$^$^$G$O%-%c%9%H=PMh$^$;$s!#%-%c%9%H$9$k$K$O!">.?tE@ItJ,$r$I$&07$&$+(J
$B$r7h$a$F$d$i$J$1$l$P$J$j$^$;$s!#(J

$B!!4]$a$k$J$i$P(J Round(a)$B!"@Z$j<N$F$k$J$i$P(J Trunc(a)$B$H$7$^$9!#(J

$B$^$?!"(JReal$B7?$O8_49@-$N$?$a$K$"$k$N$G!":9$7;Y$($J$1$l$P(J a$B$r(JExtended$B7?(J
$B$K$7$?J}$,$$$$$H;W$$$^$9!#(J

$B$G$9$+$i!"(J

	var
		a:Extended;
 		b:Integer;
 
 	begin
 		a:=log10(250);
		b:=100+Round(a);
 	end;

$B$N$h$&$K$9$k$H$&$^$/$$$-$^$9(J(b$B$O(J102$B$K$J$j$^$7$?(J)$B!#(J
	

$B!!>\$7$/$O%X%k%W$r$4Mw2<$5$$!#(J


+[] Signature.pas ------------------------------------------_DX+
                                                                
  Name   := '$BHf4k(J $B9d?N(J';                                        
  E-Mail := f8498008@ca.aif.or.jp ;                             
  HomePage := http://www.vector.co.jp/authors/VA009712/take/ ;  
$B!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!(J                          
+=============================================================/+