<em>Из мобильного приложения приведенная ниже формула не будет видна, смотреть в браузере!!!</em>
var
i:integer;
x,p:real;
begin
Write('x='); Read(x);
p:=1;
for i:=1 to 32 do p:=p*(1+1/(x-2*i));
Writeln('P=',p)
end.
<u>Пример</u>x=1.36
P=-0.0783922330060185
1) program X;
var
B:array [0..325] of integer;
i,g,n:integer;
Begin
write ('Введите количество элементов массива = ');
read(n);
For i:= 1 to n do
Begin
B[i]:= -10+random(25);
write (B[i]:4);
end;
writeln;
writeln('новый массив');
begin
for i:=1 to n do
if B[i] mod 2=0 then
begin
g:=i;
B[i]:=g;
write (B[i]:4);
end;
end;<span>
End.
2) </span>program X;
var
B:array [0..325] of integer;
i,g,n:integer;
Begin
write ('Введите количество элементов массива = ');
read(n);
For i:= 1 to n do
Begin
B[i]:= -10+random(25);
write (B[i]:4);
end;
writeln;
writeln('новый массив');
begin for i:=1 to n do
if (B[i] mod 2=0) and (i mod 2<>0)
then
begin
g:=i;
B[i]:=g;
write (B[i]:4);
end;
end;<span>
End.</span>
N=2^i, где N - количество цветов в палитре, i - глубина цвета
32=2^i, поэтому i=5 бит, точнее столько бит надо, чтобы закодировать 1 точку
всего точек: 800*360=288000
Объем памяти - 288000*5=1440000 бит / 8 бит = 180000 байт
1)90 * 60=5400
5400*8=43200(байтов)
2)17*26=442
442*120=53040(точек)
3)53040 : 43200 как 10608:8640
