Вид №1:
Вид №2:
Как думаете?
Код:
; v.0.1
Global $Num = 2 ; "натуральное число"
Global $End = 2000 ; предел
Global $Sum = 0 ; сумма
Global $Tmp = $Num ; временная
If Mod($Num, 2) Then ; Mod(делимое, делитель) возвращает остаток от деления. 0=FALSE, другое число=TRUE
MsgBox(16, "Error.", "Число не делится на 2 без остатка.")
Exit
EndIf
If Not $Num > 0 And $Num <= 2000 Then
MsgBox(16, "Error.", "ПНХ!!! Хочу натуральное число до 2000!")
Exit
EndIf
While $Tmp <= $End
$Sum += $Tmp
$Tmp += 2
WEnd
MsgBox(64, "Ok.", "Сумма всех четных чисел начиная с " & $Num & " заканчивая " & $End & " = " & $Sum)
Вид №2:
Код:
; v.0.2
Global $Num = 100 ; "натуральное число"
Global $End = 2000 ; предел
Global $Sum = 0 ; сумма
Global $Tmp = $Num ; временная
If Mod($Num, 2) Then ; Mod(делимое, делитель) возвращает остаток от деления. 0=FALSE, другое число=TRUE
MsgBox(16, "Error.", "Число не делится на 2 без остатка.")
Else
If Not $Num > 0 And $Num <= 2000 Then
MsgBox(16, "Error.", "ПНХ!!! Хочу натуральное число до 2000!")
Else
While $Tmp <= $End
$Sum += $Tmp
$Tmp += 2
WEnd
MsgBox(64, "Ok.", "Сумма всех четных чисел начиная с " & $Num & " заканчивая " & $End & " = " & $Sum)
EndIf
EndIf
Как думаете?