Найти среднее арифметическое положительных чисел, кратных 4 из 25-ти введённых — 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

Leave a Comment