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

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