发布网友 发布时间:2024-10-03 04:36
共1个回答
热心网友 时间:2024-10-14 21:42
Rem Language:QuickBASIC Extended 7.1
i = 2000
Do
If i mod 4 = 0 and i mod 100 <> 0 or i mod 400 = 0 Then
PRINT i;
End If
If Not (i < 3000) Then Exit Do
i = i + 1
Loop
热心网友 时间:2024-10-14 21:43
Rem Language:QuickBASIC Extended 7.1
i = 2000
Do
If i mod 4 = 0 and i mod 100 <> 0 or i mod 400 = 0 Then
PRINT i;
End If
If Not (i < 3000) Then Exit Do
i = i + 1
Loop