21
Сентябрь
2011
Найти сумму целых положительных чисел больших 20, меньших 100 и кратных 3
Найти сумму целых положительных чисел больших 20, меньших 100 и кратных 3
For i = 0 To x ' x - кол-во чисел всего, а num(i) = масив ваших чисел
If num(i) > 0 And num(i) > 20 And num(i) < 100 And num(i) = Int(num(i)) And num(i) / 3 = Int(num(i) / 3) Then ' проверка
Sum = Sum + num(i) 'суммируем
End If
Next i