Объем памяти = 3*2*1440*900 бит = 3*2*1440*900 / (8*1024*1024) Мбайт ≈ 1 Мбайт
N=33+33+26+26+15+10=143 101*2=202 байтов 202*8=1616битов
Var
b:array[1..100001] of integer;
var a,c,i:integer;
begin
c:=0;
write('десятичное число: ');
readln(a);
while a<>0 do
begin
if a mod 2 = 0 then
begin
a:=a div 2;
c:=c+1;
b[c]:=0;
end;
if a mod 2 <>0 then
begin
a:=a div 2;
c:=c+1;
b[c]:=1;
end;
end;
write('двоичное число: ');
for i:=c downto 1 do
write(b[i])
end.
Можно обойтись без массива и этим сэкономить память компьютера.
Можно также вывести такую матрицу (в виде песочных часов) любого размера. Для этого нужно только изменить значение n в строке
const n=5
Program Pentelemon;
uses crt;
const n=5;
var
i,j:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln();
for i:=1 to n do
begin
for j:=1 to n do
begin
if ((j>=i) and (i+j<=n+1)) or ((j<=i) and (i+j>=n+1)) then
write ('1 ')
else
write ('0 ');
end;
writeln();
end;
end.
Первый пример.
Даны числа:
<span>210; 31; 1994; 84,9
</span><span>
Найти:
Их сумму с помощью MS Excel.
Формула (Её нужно вписать в окошко Excel и нажать "Enter"):
</span>«=СУММ(210+31+1994+84,9)»
Ответ:
Сумма чисел первого примера равна: 2319,9
---------------------------------------------------------------------------------------------------
Второй пример:
Даны числа:
<span>210; 31; 1994; 84,9; 75,3
</span><span>
Найти:
Сумму чисел в MS Excel.
</span>Формула (Её нужно вписать в окошко Excel и нажать "Enter"):
«СУММ(<span>210+31+1994+84,9+75,3</span>)»
Ответ:
Сумма чисел второго примера равна: 2395,2
Далее скриншоты и сами формулы в файле Excel.