Program summa;
var
a,b,c,d,e,f:integer;
begin
Writeln('Введите 5 чисел : ');
readln(a,b,c,d,e);
f:=a+b+c+d+e;
writeln('Сумма чисел = ',f);
readln;
<span>end.
</span>
Я пошёл в школу-истинное.Я не пошёл в школу-ложное.
32 = 2^5 значит 5 бит на цвет/пиксель
5*600*900 бит = 2 700 000 бит = 337 500 байт = 329.58984375 кб
<span>Random это функция</span><span> возвращающая случайные числа от 1 до указанного диапазона, но отрицательных чисел тут нет, так что воспользуемся приемом:</span>
A: = Random(101)-50; {Числа от -50 до 50}
B: = Random(101)-200; {от -100 до 100}
<span>А теперь выведи на экран все положительные, а затем отрицательные элементы - проверяй на больше/меньше нуля!</span>
A=1024
b=1024
V=512 КБ
Найти N
N=2^I
V=a*b*I I=V/a*b ( переводим 512Кб в биты в числителе) 1пиксель=1 бит в знаменателе
I=512*1024*8/1024*1024= 4 бит
N=2^4=16 цветов в палитре