<em>// PascalABC.NET 3.2, сборка 1370 от 24.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('s=',ArrRandom(10,5,20).Println.Sum)
end.
<u>Пример</u>
9 14 6 6 20 16 12 11 8 5
s=107
И так. Для сохранения 64 шаров требуется в двоичной системе счисления 2^{6}=6426=64 , вот и вся формула.
Информационное сообщение несёт 6 Бит информации
Причём без разницы что за цифра, но если брать чистую информации то 4 Бита
15_{10} =1111_{2}1510=11112
как-то так вроде
Программы-архиваторы используют <span>для уменьшения объемов файлов</span>
1)543×130=70590(мм в кв)-площадь прямоугольника.
2)30×30=900(мм в квадрате)-площадь квадрата.
3)70590/900=78(390 в остатке)
Ответ:можно отрезать 78 квадратов.
Program n1;
var a,b: integer;
begin
a:=-3;
b:=11;
while a<=4 do
begin
a:=a+2;
b:=b-1;
end;
while b>0 do
begin
b:=b-1;
a:=a+1;
end;
writeln(a);
end.
//скомплировал, компилятор выдал а=12;