Ответ будет равен 6, да и в коде есть пару синтаксических ошибок.
Var
a, b, c, D: real;
x1, x2: real;
begin
Write('Введите А:'); Readln(a);
Write('Введите B:'); Readln(b);
Write('Введите C:'); Readln(c);
D := sqr(b) - (4 * a * c);
if (D > 0) then
begin
x1 := (-b + sqrt(D)) / (2 * a);
x2 := (-b - sqrt(D)) / (2 * a);
Writeln('x1=', x1);
Writeln('x2=', x2); end else
if(d = 0) then
begin
x1 := b / (2 * a);
Write('x1=', x1, 'x2=', x1);
end else
writeln('Корней нет');
end.
<span>var
factorial:
longint;
n, i: byte;
begin
write('n = '); readln(n);
factorial := 1;
for i:=2 to n do
factorial := factorial * i;
writeln('n! = ', factorial);
readln;
end.</span>
Я бы отнесла былины к социальным моделям, т.к. они моделируют ситуации взаимоотношений между людьми в обществе.
Пусть вероятность достать синий шар p
тогда количество информации в сообщении о том, что добыт синий
i = -log(p)/log(2)
-3*log(2) = log(p)
log(2^(-3)) = log(p)
p = 1/8
если общее число шаров N
то синих N/8
красных N/8*3
белых N-N/8-3*N/8 = N/2
и по условию белых 36
N/2 = 36
N = 72
это ответ :)