1. 16, 256, 2^16, 2^24, 2^32
3. 256 цветов, следовательно 8 бит глубина цвета. 120*8 бит/ 8 бит =120 точек
4. 256*1024*8 (объем памяти в битах)> 4(глубина цвета при палитре в 16 цветов)*640*180 Значит объема памяти достаточно
2 в 4 раза, так как 65536 это 16 степень числа 2, а 16 - - четвертая, следовательно 16/4=4
===== PascalABC.NET =====
function GetArr(n: integer) :=
ReadArrInteger('Вводите эдементы массива:', n);
function Summ(a: array of integer): integer;
begin
if a.Any(p -> p < 0) then
Result := a.TakeWhile(p -> p >= 0).Sum
else
Result := a.Sum
end;
// Тест
begin
var M := GetArr(ReadInteger('n ='));
Println(Summ(M))
end.
Uses graphABC;
begin
setwindowsize(600,500);
setbrushcolor(clMedGray);
Ellipse(320,30,490,400);
Ellipse(120,30,300,400);
setbrushcolor(clCream);
Ellipse(335,40,480,380);
Ellipse(140,40,280,380);
setbrushcolor(clMedGray);
Ellipse(100,430,500,130);
setbrushcolor(clNavy);
Ellipse(250,240,200,310);
Ellipse(350,240,400,310);
setbrushcolor(clwhite);
Ellipse(240,270,220,300);
Ellipse(360,270,380,300);
setbrushcolor(clblack);
Ellipse(270,330,330,370);
line(300,370,300,400);
Arc(300,280,120,220,-40);
line(50,350,200,350);
line(30,340,190,340);
line(10,330,180,330);
line(410,330,570,330);
line(400,340,560,340);
line(390,350,550,350);
line(240,230,220,150);
line(230,230,180,80);
line(220,230,180,150);
line(360,230,380,150);
line(370,230,430,80);
line(380,230,430,150);
end.
Эта
Program a;
var s, m: integer;
begin
write('Возрасты Саши и Маши: ');
readln(s, m);
if( s > m ) then begin
writeln('Саша старше Маши');
end;
if( s = m ) then begin
writeln('Саша и Маша ровестники');
end;
if( s < m ) then begin
writeln('Маша старше Саши');
end;
<span>end.</span>