Solver Divisibility of one number over another
Algebra
->
Divisibility and Prime Numbers
-> Solver Divisibility of one number over another
Log On
Algebra: Divisibility and Prime Numbers
Section
Solvers
Solvers
Lessons
Lessons
Answers archive
Answers
Source code of 'Divisibility of one number over another'
This Solver (Divisibility of one number over another)
was created by by
ichudov(507)
:
View Source
,
Show
,
Put on YOUR site
About ichudov
:
I am not a paid tutor, I am the owner of this web site!
==section input Is *[input a=18] divisible by *[input b=6]? ==section solution perl unless( $a =~ /^\d+$/ ) { print "Natural number expected instead of '$a'.\n"; return; } unless( $b =~ /^\d+$/ || $b == 0 ) { print "Natural number expected instead of '$b'.\n"; return; } print "To solve this problem, try dividing $a by $b. If your result is a whole number, then $a is divisible by $b. <BR>"; if( ($a % $b) == 0 ) { print "<B>Answer: Yes, $a is divisible by b</B>. $a = " . int($a/$b) . " * $b"; $divisible = 1; } else { my $frac = int( $a/$b) . chr(38) . reduce_fraction( ($a % $b), $b ); print "<B>Answer: No, $a is not divisible by $b</B>: {{{$a = $frac* $b}}}, and {{{$frac}}} is not an integer number.\n"; $divisible = 0; } ==section output divisible ==section check a=6 b=2 divisible=1 a=15 b=6 divisible=0
