b=360
c= int ((a+b)/2)
loop:
if a/c = int (a/c) and b/c = int (b/c) then
print "The highest common factor to a and b is "+ c
end
end if
c=c-1
goto loop
This is a set of small programs in Basic-256, related to various topics. Just copy,paste and run. Note : Sometimes programs do not run in recent BASIC 256 versions.
No comments:
Post a Comment