Для целесообразности вместо корня из 1 заранее используется 1 (поскольку нет нужды вычислять).
--- КОД ПРОГРАММЫ НИЖЕ ---
// Проверено в PascalABC.NET (версия 3.2, сборка 1363)
program zz;
var
n, i, u, d, f, c, ff, cc: integer;
y: real;
procedure GetDiv();
begin
ff := f;
cc := c;
d := 0;
while cc > 0 do
begin
d := d + ff;
ff := ff + 1;
cc := cc - 1;
end;
end;
function Facto(num: integer): integer;
var
ff, fi: integer;
begin
ff := 1;
for fi := 2 to num do
ff := ff * fi;
Facto := ff;
end;
begin
write('n = ');
readln(n);
y := 0;
f := 2;
c := 2;
for i := 1 to n do
begin
u := Facto( n - (i - 1) );
if i = 1 then
d := 1
else
begin
GetDiv();
f := ff + 1;
c := c + 1;
end;
y := y + (u / d);
end;
writeln('y = ', y);
end.
1)
Program asd;
USES crt;
Const n=10;
Var A:array[1..n] of integer;
i,kp,s:integer;
BEGIN
Writeln('Массив: ');
For i:=1 to n do
begin
A[i]:=Random(20);
Write(A[i]:4);
end;
Writeln;
For i:=1 to n do
begin
If A[i] mod 3=0 then
s:=s+1;
end;
Writeln('Сумма: ' ,s);
<span>END.
2)
Program asd;
USES crt;
Const n=10;
Var A:array[1..n] of integer;
i,kp,s:integer;
BEGIN
Writeln('Массив: ');
For i:=1 to n do
begin
A[i]:=Random(20)-10;
Write(A[i]:4);
end;
Writeln;
For i:=1 to n do
begin
If A[i]<0 then s:=s+1;
end;
If s=0 then Writeln('Нет отр. элементов!');
Writeln('Сумма отр. элементов: ' ,s);
<span>END.</span></span>
берем 1 число с начала и одно с конца:
1+10=11
2+9=11
и т.д
Всегда получается 11.НАйдем количество таких пар и полученное число умножим на 11.
10:2 =5- 5 пар получится
5*11=55 сумма целых чисел от 1 до 10
Все числа имеют равный шанс "выпадания". Поэтому могло быть 15 вариантов событий, поэтому неопределённость знаний уменьшается в 15 раз. Сообщение, что выбрали одно число содержит 4 бита. Так как (15 ≈ 2^4) Ответ: 4 бита
Ответ:Звуковая карта (звуковая плата, аудиокарта; англ. sound card) — дополнительное оборудование персонального компьютера и ноутбука, позволяющее обрабатывать звук (выводить на акустические системы и/или записывать). На момент появления звуковые платы представляли собой отдельные карты расширения, устанавливаемые в соответствующий слот. В современных материнских платах представлены в виде интегрированного в материнскую плату аппаратного кодека (согласно спецификации Intel AC’97 или Intel HD Audio).
Объяснение:
