т.е. для палитры из 65536 цветов требуется 16 бит памяти
это для ОДНОЙ точки на экране
1024 x 768 = 786432 (столько всего точек/пикселей)
теперь 768432 * 16 бит = 12582912 бит (объем для хранения всего изображения)
можно перевести из бит в килобайты
12582912 / 8 / 1024 = 1536 кБайт (или 1,5 МБайт)
Var a:array [1..10] of integer;
i,k1,k2:integer;
begin
for i:= 1 to 10 do
a[i]:= Random(20,100);
writeln(a);
for i:=1 to 10 do
if a[i] mod 2 = 0 then k1:=k1+1
else k2:=k2+1;
writeln('Чётных элементов: ',k1);
writeln('Нечётных элементов: ',k2)
end.
Var a, b, prod, i: integer;
begin
writeln('Введите два числа: ');
readln(a, b);
prod := 0;
if (b < 0) then
for i := b to -1 do
dec(prod, a)
else
for i := 1 to b do
inc(prod, a);
writeln(prod)
<span>end.</span>
Var n:=6;
while n>0
begin
writeln("Я люблю Беларусь");
n:=n-1;
end;