25 !

числа a и b выражают длины катетов одного прямоуголь­ного треугольника, с и d — другого. определите, являются ли тре­уголь­ни­ки подобными.

составьте блок- схему.​

// PascalABC.NET 3.2, сборка 1436 от 01.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=new integer[4,4] ((1,15,14,4),(12,6,7,9),(8,10,11,5),(13,3,2,16));
  a.Println(3);
  var b:=new integer[6,6] ((6,32,3,34,35,1),(7,11,27,28,8,30),
    (19,14,16,15,23,24),(18,20,22,21,17,13),(25,29,10,9,26,12),
    (36,5,33,4,2,31));
  Writeln;
  b.Println(3);
end.

Результат:
  1 15 14  4
 12  6  7  9
  8 10 11  5
 13  3  2 16

  6 32  3 34 35  1
  7 11 27 28  8 30
 19 14 16 15 23 24
 18 20 22 21 17 13
 25 29 10  9 26 12
 36  5 33  4  2 31

1 задача.
128 * 64 = 2^7 * 2^6 = 2^13 - символов на одной странице.
16 бит = 2 байта - вес одного символа.
2 * 2^13 = 2^14 байт - вес всех символов на одной странице.
16 Кбайт = 16 * 1024 байт = 2^4 * 2^10 байт = 2^14 байт - вес статьи.
2^14 / 2^14 = 1 - количество страниц в статье
ответ: 1.

2 задача.
96 * 32 = 3072 - символов на одной странице.
8 * 3072 = 24576 бит - вес всех символов на одной странице.
3 Мбайта = 3 * 2^23 бит - вес романа.
(3 * 2^23) / 24576 = 1024 - количество страниц в романе.
ответ: 1024.