N = 2 в степени i //N=2^i
I = k * i
Маленькая буква i или b это одно и тоже
128 = 2^i
i= 7
I = i* k
k= 40
I = 40 * 7
I = 280бит
1 бит = 8байт
280/8= 35 байт
Ответ : 8байт или 280бит
Program prog;
uses crt;
var a:array[1..201] of integer;
s,i: integer;
begin
clrscr;
for i:=1 to 201 do
a[i]:=i+100;
for i:=1 to 201 do begin
if a[i] mod 2=1 then begin
s:=s+a[i];
write(a[i],' ');
end;
end;
writeln; writeln;
writeln('Сумма s = ', s);
end.
1200/8(переводим в байты)= 150 байт/с
если мы делим на 1 сек то надо * на 14 сек
150*14= 2100 байт за 14 сек
Uses crt;
var x: array[1..10,1..10] of integer;
i,j,s,n: integer;
begin
randomize;
write('Размер матрицы: '); read(n);
writeln('Матрица:');
for i:=1 to n do begin
for j:=1 to n do begin
x[i,j]:=random(30)-10;
write(x[i,j]:5);
end;
writeln
end;
j:=n+1;
for i:=1 to n do begin j:=j-1; s:=s+x[i,j];
end;
writeln('Сумма элементов побочной диагонали: ',s);
end.