Calculation of New Year - Printable Version

Code: (Select All)
Rem program to determine New Year factors.

z = 2025

Do Until z = 2026

   z = z + 1

   x = z

   Print x; "=";

   l = 1

   q = 0

   Do Until x = 1

      l = l + 1

      Do While x / l = x \ l ' continue to divide number

         q = q + 1

         If q > 1 Then

            Print "*";

         End If

         Print l;

         x = x / l

      Loop

      If l > Int(z / 2) Then ' test for maximum divisor

         Exit Do

      End If

      If l > Int(Sqr(x)) Then ' test maximum divisor is prime

         If q = 0 Then

            Exit Do

         End If

      End If

   Loop

   If q = 0 Then ' display number is prime

      Print " (prime)";

   End If

   y = 0

   If z / 4 = z \ 4 Then y = -1

   If z / 100 = z \ 100 Then y = 0

   If z / 400 = z \ 400 Then y = -1

   If y Then Print " [is a leapyear]";

   If y = 0 Then Print " [is not a leapyear]";

   Print

Loop

End