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

disel
1
2
3
4
5
6
7
8
9
10
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