На сколько я знаю, надо просто все перемножить
<em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function ДробьНесократима(Чис,Знам:integer):boolean;
begin
while Знам<>0 do begin Чис:=Чис mod Знам; Swap(Чис,Знам) end;
Result:=Чис=1
end;
begin
for var Знаменатель:=2 to 7 do
for var Числитель:=1 to Знаменатель-1 do
if ДробьНесократима(Числитель,Знаменатель) then
Write(Числитель,'/',Знаменатель,' ');
Writeln
end.
<u>Результат</u>
1/2 1/3 2/3 1/4 3/4 1/5 2/5 3/5 4/5 1/6 5/6 1/7 2/7 3/7 4/7 5/7 6/7
B3(16) = 263(8)
263(8) + 216(8) = 501(8) = 321 (10)
Program n1;
var x,y,z: real;
procedure kvur(a,b,c: real);
var D: real;
begin
D:=b*b-4*a*c;
writeln('x1=',(-b+sqrt(D))/2*a);
writeln('x2=',(-b-sqrt(D))/2*a);
end;
begin
write('a=');
readln(x);
write('b=');
readln(y);
write('c=');
readln(z);
kvur(x,y,z);
end.
I = K * i (I - объем информации, K - кол-во пикселей, i - вес одного пикселя / глубина цвета)
i = I / K
K = 64 * 64 = 4096 пикселей
I = 2 Kb = 2 * 1024 * 8 бит = 16384 бит
Глубина цвета бит
Кол-во цветов в палитре цветов
Ответ: 16.0