40 Гбайт = 40 * 1024 * 1024 * 1024 * 8 бит = 343597383680 бит
700 Мбайт = 700 * 1024 * 1024 * 8 бит = 5872025600 бит
Кол-во = 343597383680 / 5872025600 шт = 58.51428571428571 шт ~= 59 шт (округляем в большую сторону так как кусками тут быть не может)
Function func1(a As Double) As Double
Dim i As Integer, b As Double
i = 1 - Sgn((Abs(a) - a) / 2)
b = Sqr(a * i)
a = a * 2 + i * (b - 2 * a)
func1 = a
End Function
Var r,s:real;
begin
write('R = ');
readln(r);
s:=2*pi*r*r;writeln('Площадь круга = ',s:6:3);
end.
Пример:
<span>R = 2
Площадь круга = 25.133</span>