Вторая аналогично 16кбайт=1024*8*16 бит. на каждый пикслель приходится (1024*8*16)/(256*128)=4бита. при такой глубине максимальное число цветов 2^4=16.
CLS
INPUT "a,b = ", a, b
IF a > b THEN
PRINT a
ELSE
PRINT b
END IF
---------------------
CLS
INPUT "a,b = ", a, b
c = SQR(a * a + b * b)
p = a + b + c
PRINT "P = "; p
2ⁿ = 65536, где n = 16
I = 1024 · 800 · 16 = 13107200 бит =
13107200 / 8 Байт =
1638400 / 1024 Килобайт =
1600 / 1024 Мегабайт = 1.56 Мегабайт
Иван может купить видеокарты с памятью 1.5, 2 и 4 Мбайт.
1)
var
i:integer;
begin
randomize;
i:=random(11);
writeln('vipalo chislo: ',i)
;if (i = 7) then writeln('POBEDA!') else writeln('Pobrobyite eshe!');
<span>end.
2)
var
i_1,i_2,i_3:integer;
begin
randomize;
i_1:=random(11);
i_2:=random(11);
i_3:=random(11);
writeln('vipalo chislа: ',i_1,' ',i_2,' ',i_3);
if (i_1 = i_2)and(i_2 = i_3) then writeln('Winer!') else writeln('Sorry,try again!')
<span>end.
</span>3) </span>var<span> i, k, z: integer;
begin
randomize;
k := 0;
for i := 1 to 10 do
begin
z := random(101);
write(' ', z);
if odd(z) then k := k + 1;
end;
writeln;
writeln('Kolichestvo chetnysh: ', k);
</span>end.