Найти среднее арифметическое положительных чисел, кратных 4 из 25-ти введённых

Категория: Basic
2011-10-17 16:38:43
code: #basic
DIM summa, n, otvet
summa=0
FOR i=1 TO 25
  INPUT "Введите число: ", n
  IF n > 0 AND n\4=0 THEN
    summa = summa + n
  END IF
NEXT i
otvet = summa / 25
PRINT otvet

автор: Toxa33rus

Поделиться:

Похожие статьи:

теги: студенты, qbasic, среднее арифметическое, положительное число