Изменил... теперь нормально все.
uses graphabc,crt;
var i:integer; h:real;
begin
randomize;
rectangle(280,130,320,320);
rectangle(250,10,350,260);
circle(300,55,35);
circle(300,135,35);
circle(300,215,35);
for i:=1 to 1000 do
begin
floodfill(300,55,clred);
delay(3000);
floodfill(300,55,clwhite);
delay(1000);
floodfill(300,135,clyellow);
delay(3000);
floodfill(300,135,clwhite);
delay(1000);
floodfill(300,215,clgreen);
delay(1000);
floodfill(300,215,clwhite);
delay(1000);
end;
end.
При палитре из 256 цветов на 1 пиксель необходимо log(2)256=8 бит.
На все изображение - 640*480*8 бит = 640*480 байт = 300 Кбайт, следовательно, в видеопамяти может разместиться 1 страница.
Input a, b
if (a=>0) and (b=>0) then c=a+b else if (int(a/2)<>a/2) or (int(b/2)<>b/2) then c=(a+b)/2
При использовании 32-символьного алфавита для хранения одного символа требуется log(2)32 = 5 бит, при использовании 64-символьного - log(2)64 = 6 бит.
Объем первого сообщения = 80*5 = 400 бит;
объем второго сообщения = 70*6 = 420 бит
Ответ: объем второго сообщения больше
Двоичная запись числа 82 имеет три единицы. Решение на фото.
Ответ: 3.