1. 64х128=8,192 пикс. Выделенный объем делим на кол-во пикселей и получаем число бит на пиксел. Т.е., 3,072/8,172=0.375 байта. Т.е., примерно 3 бита. А 3 бита = 8 комбинаций (от 000 до 111). 8 цветов в палитре.
uses crt;
var a:array[1..100,1..100] of integer;
n,m,s:integer;
begin
clrscr;
randomize;
write('n='); read(n);
write('m='); read(m);
for n:=1 to n do
for m:=1 to m do
a[n,m]:=random(100);
writeln('massiv:');
for n:=1 to n do
begin
for m:=1 to m do
write(a[n,m],' ');
writeln;
end;
for n:=1 to n do
for m:=1 to m do
begin
if (a[n,m] mod 5 =0)and (a[n,m] mod 3<>0) then
begin
s:=n;
write('stroka ',s,'; ');
end;
end;
end.
Собрать больше бензина чтоб из точки а быстрее ехать в б
procedure summa(s, num: integer);
begin
s:= s + num;
end;
var i, sum: integer;
begin
sum:= 0;
for i:= 10 to 99 do if i mod 2 = 0 then summa(sum, i);
write(sum);
end.