Истина- Ты человек
Ложь- Ты дьявол
6 Кбайт = 6*1024*8 бит
Память для одного пикселя = 6*1024*8/(128*128) = 3 бита
Количество цветов в палитре = 2^3 = 8
Вот это тебе поможет!!!!!!!мне помогает
1)в коробке нет красного карандаша.
2)в коробки 31 карандаш.
1)
var a,b:integer;
begin
writeln('введите стороны прямоугольника:');
write('первая сторона равна:');readln(a);
write('вторая сторона равна:');readln(b);
write('площадь прямоугольника со сторонами ',a,' и ',b,' равна ',a*b);
end.
2)
Var x: integer;
Begin
write('введите число х=');
readln(x);
If x>=2 Then write('y=',sqrt(x))
Else write('y=',x);
End.