1) V=M*N*b -где b-битовая глубина цвета.
Nц - количество используемых цветов равно 2 в степени b=16, отсюда b=4
V=400*200*16 =1 280 000 бит = 160 000 байт = 156,25Кб
2) Квадрат станет чёрным, а фон станет синим
Будут зарисованы 1;2;6;<span>8</span>
Var a,i,n,k : integer;
Begin
randomize;
Readln(n);
for i:=1 to n do begin
a:=random(7)-3;
if a=0 then k:=k+1;
writeln(i,' число = ',a);
end;
Writeln('Количество 0: ',k);
end.
1канал*60cек*2байт*48.000гц=5,760,000 байт=5625 - кб => около 5 мб
Var
h,x,y:real;
begin
writeln('Введите значения k и h');
readln(x,h);
y:=2;
while y<=3.000001 do begin //3.000001 преодолевает погрешность накопления y
writeln(y:6:3,ArcCos(y/x):6:3);
y:=y+h
end
end.
Тестовый прогон:
Введите значения k и h
4.5 0.1
2.000 1.110
2.100 1.085
2.200 1.060
2.300 1.034
2.400 1.008
2.500 0.982
2.600 0.955
2.700 0.927
2.800 0.899
2.900 0.870
3.000 0.841