Var a:array[1..50] of integerl;
sr:real;
kol,i:integer;
begin
for i:=1 to 50 do
readln(a[i]);
kol:=0;
sr:=0;
i:=5;
while i<=50 do
begin
sr:=sr+a[i];
kol:=kol+1;
i:=i+5;
end;
writeln(sr/kol);
end.
всего точек 600*800=480 000
размер файла 512 мб
выясним размер 1 точки
512мб переведем в килобайты, далее в байты
512*1024*1024=536870912 байт размер картинки
536870912 делим на 480 000=1118.48 байт на 1 пиксель
16 млн цветов кодируются 3 байтами
составим пропорцию
16млн=3 байта
Х = 1118 байт
х= (1118*16)/3=5962.66 млн цветов
Ответ: 5962.66 млн цветов
А вообще под такие параметры не найдешь картинку) но это задача.
Правильный ответ : C. Внешний носитель
<em>я так понял на паскале так как информатика </em>
Среда Разработки PascalABC.NET
function factorial(n:integer):integer;
var f:integer;
begin
f :=1;
if(n = 0) or (n = 1) then
factorial:=1
else
if(n>1) then
begin
for var i:=2 to n do
f*=i;
factorial:=f;
end;
end;
begin
var (n,k):=ReadInteger2('n,k = ');
Writeln('Ck/n = ',factorial(n)/(factorial(n-k)*factorial(k)));
end.