1) 1,5 Мбайта=1,5*2^23 бита =3*2^22 бита
2) 2048*1024=2^11*2^10=2^21 пикселей
3) 3*2^22 : 2^21 =3*2 =6 бит один пиксель
4) 2^6 =64 цвета в палитре
ответ 6 пикселей; 64 цвета
Скореи всего нет я пробывал нет.
Sub My_VBA()
s = 0
Do
n = InputBox("введите число, 0 - конец ввода")
If n > 0 Then s = s + n
Loop Until n = 0
MsgBox "Сумма положительных чисел равна " + Str(s)
End Sub
Блок-схема во вложении
Program z10;
var a,b:real;
Begin
a:=1;b:=0;
while a<1024 do
begin
a:=a*2;
b:=sqrt(a+b);
end;
write(b);
<span>end.
2)
Program z10;
var w,j,p,i,k:longint;
x,s:real;
Begin
read(x);
s:=0;k:=10;
for i:=1 to k do
begin
p:=1;w:=3*i-1;
for j:=1 to w do
begin
p:=p*j;
end;
s:=s+x/p;
end;
write(s);
<span>end.
2-это 4</span></span>
Program chisla;
uses crt;
var a,b,c : integer;
begin
Writeln('Введите значения X Y Z: ');
Readln(a,b,c);
if a>b then
begin
a:=a+b;
b:=a-b;
a:=a-b;
end;
if b>c then
begin
b:=b+c;
c:=b-c;
b:=b-c;
end;
if a>b then
begin
a:=a+b;
b:=a-b;
a:=a-b;
end;
writeln('X=',a,' Y=',b,' Z=',c);
end.