имеется текст объём которого 20 килобайт ( на каждой странице 40 строк по 64 символа в строке 1 символ занимает восемь бит.) определите количество страниц в тексте подробно расписать)
var i, j: integer; a: array[1..n, 1..n] of integer;
begin for i := 1 to n do for j := 1 to n do if i = j then a[i, i] := n - i + 1 else a[i, j] := 0; writeln; for i := 1 to n do begin for j := 1 to n do write(a[i, j]:4); writeln end end.
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
var a:=MatrGen(n,n,(i,j)->i<=n-j-1?i+1:0);
a.Println(3)
end.
Пример
n= 13
1 1 1 1 1 1 1 1 1 1 1 1 1
2 2 2 2 2 2 2 2 2 2 2 2 0
3 3 3 3 3 3 3 3 3 3 3 0 0
4 4 4 4 4 4 4 4 4 4 0 0 0
5 5 5 5 5 5 5 5 5 0 0 0 0
6 6 6 6 6 6 6 6 0 0 0 0 0
7 7 7 7 7 7 7 0 0 0 0 0 0
8 8 8 8 8 8 0 0 0 0 0 0 0
9 9 9 9 9 0 0 0 0 0 0 0 0
10 10 10 10 0 0 0 0 0 0 0 0 0
11 11 11 0 0 0 0 0 0 0 0 0 0
12 12 0 0 0 0 0 0 0 0 0 0 0
13 0 0 0 0 0 0 0 0 0 0 0 0
P.S. Ненавижу того, кто поставил тут этот шрифт - все съезжает!