Пппппарпрарараврарарарары
S := exp(ln(-sqrt(156,374) * ln(n)) * 1/3)
Системный блок... Самое сокровенное что у нас есть. В нем мы держим большое количество информации, с помощью него мы общаемся с другими людьми, играем в игры, пишем сочинения и многое другое.... Жизнь его, конечно нелегка, даже очень нелегка... Каждый день мы включаем и работаем на нем, каждый день! С утра до ночи, с ночи до утра! И кого -то иногда, а у кого - то он перетруждается... Да, именно перетруждается. И тогда он отправляется в сервис, а иногда хозяева сами его чинят. И когда он чинится, он опять начинает работать, как окаянный. Не хотел бы я оказаться на его месте. И поэтому, зная про его тяжелую долю, нужно относиться к нему бережно: чистить его ( хотя бы раз в месяц), вовремя заменять термопасту и т.д.
1)1111101,011(2)=1*2^6+1*2^5+1*2^4+1*2^3+1*2^2+0*2^1+1*2^0+0*2^ -1+1*2^-2+1*2^-3=64+32+16+8+4+0+0,25+0,125=135,375(10)
2)100001,2=1*2^5+0*2^4+0*2^3+0*2^2+0*2^1+1*2^1+1*2^-1=32+0+0+0+0+1+0.5=33,5(10)
3)1011011,111=1*2^6+0*2^5+1*2^4+1*2^3+0*2^2+1*2^1+1*2^0+1*2^-1+1*2^-2+1*2^-3=64+0+16+8+0+2+1+0,5+0,25+0,125=91,875(10)
<em>// PascalABC.NET 3.2, сборка 1363 от 17.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var m:=ReadInteger('Количество строк в матрице:');
var n:=ReadInteger('Количество столбцов в матрице:');
Writeln('*** Исходная матрица [',m,'x',n,'] ***');
var a:=MatrRandom(m,n,-50,50);
a.Println(4); Writeln(4*a.ColCount*'-');
var q:=a.Cols.Select(x->x.First<x.Last).ToArray;
var k:=q.Where(r->r).Count;
Writeln('*** Результирующая матрица [',m,'x',k,'] ***');
var b:=MatrFill(m,k,0);
var l:=0;
for var j:=0 to n-1 do
if q[j] then begin
for var i:=0 to m-1 do b[i,l]:=a[i,j];
l+=1
end;
b.Println(4)
end.
<u>Пример</u>
Количество строк в матрице: 5
Количество столбцов в матрице: 8
*** Исходная матрица [5x8] ***
15 -35 -11 -18 49 -32 31 -47
-21 -46 7 -48 3 24 -48 5
28 -46 36 -9 17 -32 -44 -10
-16 7 -14 40 13 30 50 -28
-8 35 -49 47 -31 30 18 20
--------------------------------
*** Результирующая матрица [5x4] ***
-35 -18 -32 -47
-46 -48 24 5
-46 -9 -32 -10
7 40 30 -28
35 47 30 20