I=1,5 Кб=1,5*1024*8 бит
I=k*i
i=?
N=?
N=2^i
I=k*i
1,5*1024*8=3072*i
i=(1,5*1024*8)/3072=4 бита
N=2^4=16 символов
Ответ: 16
<em>// PascalABC.NET 3.2, сборка 1417 от 28.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
unit ASM;
interface
type SF=(integer,integer);
function AddSF(a,b:SF):SF;
function SubSF(a,b:SF):SF;
function MultSF(a,b:SF):SF;
function DivSF(a,b:SF):SF;
implementation
function Gcd(p:SF):integer;
begin
(var a,var b):=p;
a:=abs(a); b:=abs(b);
while b>0 do (a,b):=(b,a mod b);
Result:=a
end;
function ReductSF(p:SF):SF;
begin
var t:=Gcd(p);
if t>1 then Result:=(p[0] div t,p[1] div t)
else Result:=p
end;
function AddSF(a,b:SF):=ReductSF((a[0]*b[1]+a[1]*b[0],a[1]*b[1]));
function SubSF(a,b:SF):=ReductSF((a[0]*b[1]-a[1]*b[0],a[1]*b[1]));
function MultSF(a,b:SF):=ReductSF((a[0]*b[0],a[1]*b[1]));
function DivSF(a,b:SF):=ReductSF((a[0]*b[1],a[1]*b[0]));
end.
<u>***** Пример работы с модулем *****</u>
uses ASM;
begin
var a:=(5,24);
var b:=(7,8);
var c:=AddSF(a,b);
Writeln(a[0],'/',a[1],'+',b[0],'/',b[1],'=',c[0],'/',c[1])
end.
<u>Результат</u>
5/24+7/8=13/12
Const n = 5;
m = 5;
var a:array[1..n,1..m] of integer;
i,j,k:integer;
begin
//Для теста заполним массив n * m сл.числами и
//определяем количество нечетных
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(21)-10; write(a[i,j]:4);
if a[i,j] mod 2<>0 then k:=k+1;
end;
writeln;
end;
writeln('Нечетных в массиве: ',k);
Я ничего незнаю мне самой нужен ответ но никио ничего не пишет
Возможно, что здесь идет речь о слове "<em>наследование</em>".
Наследование<span> алгоритмов и </span>признаков, например.
Вообще наследование<span> – это способность порождать новые классы </span>объектов<span> от уже существующих объектов.</span>