Для такой сети возможны следующие маски:
255.255.240.0
255.255.248.0
255.255.252.0
Наименьшее значение третьего слева байта: 240
Option Explicit
Sub abcd()
Dim a As Double, b As Double, eps As Double, i As Integer
eps = Cells(1, 1)
a = 2
i = 1
Cells(i + 1, 1) = a
Do
b = (2 + a * a) / (2 * a)
i = i + 1
Cells(i + 1, 1) = b
If Abs(b - a) < eps Then Exit Do
a = b
Loop
Cells(1, 2) = i
End Sub
Этот код помещается в проекте на лист. На этом листе в A1 надо записать желаемую точность, например 0.0000001.
В ячейку A2 будет помещено число шагов, а значения будут выводиться в первую колонку со второй строки.
p = [x for x in range(1,100) if (x%3==0) and (x%5==0)]
print(p)
1. Современное решение (быстро, просто и легко)
// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('Ср.арифм: ',ReadSeqRealWhile(k->k>=0).Average:0:4)
end.
<u>Пример</u>
23 11.7 0 12.9 16.7 13 -12
Ср.арифм: 12.8833
<em>2. Школьный вариант в стиле "1983г." (Turbo Pascal 7.0)</em>
uses Crt;
var
n:integer;
x,a:real;
begin
a:=0;
n:=0;
repeat
Read(x);
if x>=0 then begin
n:=n+1;
a:=a+x
end
until x<0;
a:=a/n;
Writeln('Ср.арифм: ',a:0:4);
ReadKey
end.