20 Мбайт = ? бит
1 Мбайт = 1024 Кбайт
1 Кбайт = 1024 байт
1 байт = 8 бит
Соответственно: 20*1024*1024*8=<span>167772160 бит</span>
program raf105;
var
a:array[1..100,1..100] of integer;
i,j,n: integer;
x: boolean;
begin
x:= True;
write('Размер матрицы: ');
readln(n);
writeln('Заполните матрицу');
for i:=1 to n do
for j:=1 to n do
readln(a[j,i]);
for i:=1 to n do
begin
writeln;
for j:=1 to n do
begin
write(a[j,i],' ');
if x and (a[j,i] <> a[i,j])
then x:= False;
end;
end;
writeln;
if x
then writeln('yes')
else writeln('no');
end.
<h3><u>PascalABC 3.4.2</u></h3>
0.01010001111010111000010100011110101110000101000<span>111 в двоичной с/c
</span><span><span>0.243656050753412172702436560507534121727024365605078 в восьмеричной с/с</span><span>
</span></span>
<span>var
</span>
<span /><span><span>a: array [</span>1..10<span>] of </span>integer;</span>
<span /><span>i : integer;</span>
<span /><span>
begin</span>
<span>
randomize;
</span>
<span /><span><span>for i:=</span>1 to 10 do </span><span>A[i]:=Random(15);</span>
<span /><span><span> for i:=</span>1 to 10 do </span><span><span>if A[i]=</span>5 then</span>
<span /><span>writeln('да то что надо ',A[i])</span><span />
<span>else
</span><span>writeln('ошибка');</span><span>
readln ;
</span>
<span><span>end.</span></span>