Ответ - IAEGE решать такое не умею , но написал программу , которая это делает , если пригодится и ты знаешь паскаль - держи
var a:string;
b:char;
n:integer;
begin
a:='A'; for n:=66 to 73 do begin
a:=Chr(n)+a+a;
end;
writeln(a);
write(a[1],a[510],a[5],a[258],a[68]);
end.
1. 1 байт, 1кб, 1мб, 3500кб, 78мб, 1гб
2. 205312 мб
4.N=2^i
N=17
N~2^5
вообще ближе по значению 2^4, однако лучше перебор, чем недобор.
i=5
Прости, не могу с остальным помочь
Вот решение
оно правельное у самого такое же было по инфарматике
1)надо 64*56=3584*8=28672
дальше переводим 1 Гбайт в бит 1*8*1024=8192
28672/8192=3.5
ответ: в книге 4 стр.
function IsOrtho(a: array[,] of integer): boolean;
begin
var n := a.RowCount - 1;
for var row1 := 0 to n do
for var row2 := 0 to n do
begin
var s := 0;
for var col := 0 to n do
s += a[row1, col] * a[row2, col];
if (row1 = row2) and (s <> 1) then
begin
IsOrtho := False;
Exit
end;
if (row1 <> row2) and (s <> 0) then
begin
IsOrtho := False;
Exit
end
end;
IsOrtho := True
end;
begin
var n := 5;
var a := ReadMatrInteger(n, n);
if IsOrtho(a) then
Println('Ортонормированная')
else
Println('Не ортонормированная')
end.
На pascalabc.net