Program prx;
Uses crt;
Var y, x : byte;
Begin
Writeln ( "Введи значение х");
Readln(x);
If x<0
Then y:=-1
Else begin
If x=0
Then y:= 0
Else y:=1
End;
End;
Writeln(y);
Readln;
End.
Там все просто - пише и ответ ::))) а выписывать тебе - сложно
http://ru.numberempire.com/factoringcalc...<span>
</span>
512 цветов это 2^9 т.е глубина цвета 9 бит
переведём объем в биты
3600*8=28800 бит
определим количество точек
28800/9= 3200 точек
Тетрадь какого автора? Уточните задание.