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