<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(10, -50, 50);
a.Println;
var b := ArrRandom(10, -50, 50);
b.Println;
var c := a.Zip(b, (p, q)-> p * q).ToArray;
c.Println
end.
Пусть х - количество страниц в книге (по формуле J=K*i) K-количество символов, i-вес символа
Информационный объем книги
8 бит * 32*64*х = 16384х бит =2048х байт = 2х Кбайт
640 Кбайт = 2х Кбайт
х=640/2=320
Ответ 320 страниц
<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadArrInteger(10);
a.Reverse.Println
end.
<u>Пример</u>
23 132 52 0 41 7 3732 18 49 13
13 49 18 3732 7 41 0 52 132 23