1. 1089
2. CMYK
3. 1036800
Объяснение:
1. Черно-белое изображение имеет только два цвета, поэтому для кодирования точки достаточно одного бита. Все изображение содержит 33×33 = 1089 точек, столько же нужно будет бит.
2. Принтеры работают с цветовой моделью CMYK, поскольку картинка рассматривается в отраженном счете. Именно эта модель обеспечиваит правильную цветопередачу.
3. Картинка на экрате будет содержать 720×360 = 259200 точек (пикселей). 16 = 2⁴, поэтому одна точка кодируется 4 битами. Следовательно, общее количество точек составит 4×259200 = 1036800 бит
program z51;
var
n,m,p,k:integer;
begin
n:=35;
m:=15;
p:=4;
k:=0;
if (n<=35) or (p<3) then
begin
k:= m div(p-2);
if (m div(p-2)<>0) then
begin
k:=(m+n)div p+k;
k:=k+1;
end
else
begin
k:=(n-m)mod(p-1)+k;
k:=k-1;
end
end { не хватает }
else if ((m+n)div(p+3)>2) then
k:=k+1;
{ end лишний }
Writeln(k);
end.
Объяснение:
Проблема в том, что end указан не там, где надо и это ломает синтаксис программы, посему компилятор ругается. По хорошему нужно было привести сообщение компилятора, а не спрашивать что не так. Чьлбы не ошибваться с логикой, пишите программу с отступами 0 будет видна структура.
Uses GraphABC;
begin SetBrushColor(clYellow); Line(290, 111, 240, 190); Line(240, 190, 171, 190); Line(170, 190, 241, 250); Line(241, 250, 209, 320); Line(209, 320, 290, 289); Line(290, 289, 369, 318); Line(369, 318, 340, 248); Line(340, 248, 410, 190); Line(410, 190, 340, 190); Line(340, 190, 289, 111); Line(289, 113, 289, 289); Line(242, 249, 341, 190); Line(340, 249, 242, 190); Line(171, 191, 290, 220); Line(291, 220, 411, 191); Line(209, 319, 290, 222); Line(290, 222, 369, 321); End.