//PascalABC.NET 3.0
begin
write(ReadSeqInteger(10).Average)
end.
Если вы про имя, то у меня любое
хоть и такое:
<span>\ ⁄ ? : * " > < |
ОС: Linux
получается создать файл с \
если у кого стоит бубунту, то не нужно тут причитать, мол файл такой невозможен
максимальная длина - </span><span>???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????
Дистрибутив: Mageia</span>
объяснение есть в коде
у файла.pdf следует поменять расширение на py
data.txt - пример файла с ценами
Sub Iter()
Dim s As Double, pi As Double, e As Double, a As Double
Dim i As Long, znak As Integer, k As Long
e = InputBox("введите значение eps")
pi = 4 * Atn(1)
s = pi
i = 2
znak = 1
k = 0
a = Tan(pi / (2 * i))
Do While a >= e
s = s + znak * a
i = i + 1
a = Tan(pi / (2 * i))
znak = -znak
k = k + 1
Loop
MsgBox "Сумма равна " + Str(s) + ", количество слагаемых " + Str(k)
End Sub
2 КБАЙТА =2048 байтов = 16384 бита
8 Мбайт = 8388608 байтов = 67108864 бита
32 Гбайта = 34359738368 байтов = 274877906944 бита
128 Тбайт = 1,41e+14 байтов = 1,13e+15 бита