Sub f1()
Dim a, b,
c, d, cord, x1, x2 As Single
a =
InputBox(" x^2")
b =
InputBox(" x")
<span>c = InputBox(" свободный")</span>
d = 0
d = (b * b) - 4 * a * c
<span>If d
< 0 Then MsgBox ("решений нет")</span>
cord =
Sqr(d)
x1 =
(-b + cord) / (2 * a)
x2 =
(-b - cord) / (2 * a)
if d = 0 then msgbox CStr(x1)
MsgBox ("корни квадратного уравнения
равны " + CStr(x1) + "и" + CStr(x2))
End
Sub
Ну, считай за 1 секунду 36 мегабайт. в 2 часах 120 минут или 7200 секунд. 7200*36=
259200 мегабайт = 259.2 гигабайта. (странный фильм какой то..)
1) логическая функция, зависящая от 7 (семи) переменных имеет
2^7=128 строк в таблице истинности.
2) в 6-ти cтроках F=0 и G=0 ---> F∩G=0
в 1-ой строке F=1 и G=1 -----> F∩G=1
в остальных строках F и G имеет различные значения:
(F=1 и G=0) или (F=0 и G=1) ----> F∩G=0
3) из 128 строк
всего в одной F∩G=1, в остальных F∩G=0 ---->
128-1 =127 (в 127 строках F∩G=0)
ответ: 127
Хз
рплопрлрампнргпмрмаом лбг амнщг7н6акмр оьтгн 6аг7кмтоьогн67вщ щд67вс6щ7влщо
Ошибка тут: program Random;
Или переименуйте или вообще уберите эту строку.