FOR i =6 TO 150
IF i MOD 6 =0 THEN s=s+i
NEXT i
PRINT s
Похожие записи/страницы:
- Найти сумму целых положительных чисел больших 20 меньших 100, кратных 3 и заканчивающихся на 2, 4 или 8 - QBasic(Бейсик)
- Найти сумму целых положительных чисел больших 20 меньших 100 кратных 3 и заканчивающихся на 2, 4 или 8.- QBasic(Бейсик)
- Даны целые числа из промежутка [-24; 56]. Найти сумму всех нечетных чисел и количество четных чисел. Найти произведение…
- С клавиатуры вводятся N целых чисел. Найти сумму всех положительных среди них - QBasic(Бейсик)
- Найти среднее арифметическое положительных чисел, кратных 4 из 25-ти введённых - Basic(Бейсик)
- Найти среднее арифметическое положительных чисел, кратных 4 из 25-ти введённых- PureBasic(Бейсик)