Program help;
Var k, l,x,y: integer;
Begin
readln(k,l);
readln (x,y);
if y>k*x+l then
write ('точка лежит над прямой')
else
if y<k*x+l then
write ('точка лежит под прямой')
else
write ('точка лежит на прямой');
End.
Var A:integer;
Begin
A:=5000;
While A mod 39 <> 0 do
A:=A-1;
WriteLn(A);
End.
Изображение: 1024х512
Память: 256Кбайт
1) 256Кбайт * 1024 = 256*1024 байт
2) 1024*512 / 256*1024 = 512 / 256 = 2
3) т.е. 1 байт должен хранить информацию о 2-ух пискелях. т.к. 1Байт = 8 бит, то 8Бит / 2 = 4 бит (4 бита = 1 пиксель)
4) 2^4 = 16 цветов