Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
находим занимаемый объм в битах
640*640*2,5*4
делим на 1024 и находим его в килобитах
4000 кб
12000/4000=3 (3 бита цветности)
не ясно что нужно, кб-килобиты или килобайты
var a,b,c: array [1..100,1..100] of integer;
as,bs,cs,i,j: integer;
begin
sb: =1;
for i : = 1 to n do
for j: = 1 to n do
if a[i,j]< 0 then sa: =sa+a[i,j];
if b[i,j]> 0 then sb: =sb*b[i,j];
if j=3 then sc: =sc+c[i,j];
end;
writeln(sa,sb,sc);
end.
Популярные вопросы