Const N = 20;
Var i,k:integer; m:array [1..N] of integer;
Begin
randomize;
for i:=1 to N do begin
m[i]:=random(101) - 50;
writeln(m[i]);
end;
for i:=1 to N do
if m[i] mod 2 <> 0 then
inc(k);
writeln('Kol-vo netchetnih = ',k);
readln;
end.
<span>
</span>
Скорее всего ошибка, выскакивает из-за не закрытой функции pow, не хватает скобки после 1/3. Также непонятно, Вы пытаетесь возвести в степень 1/3? если это так, то по вашему коду, а3 всегда будет равен 0. И на будущее возведение числа в дробь такого вида - это извлечение корня в степени делителя. Т.е. в вашем случае, нужно не возводить число в степень 1/3, а брать кубический корень.
На одной странице 800 * 600 пикселей, на 1 пиксель отводится 24 бита памяти.
На все 4 страницы необходимо
4 * 800 * 600 * 24 бит = 4 * 800 * 600 * 3 байт = 5760000 байт = 5625 Кб
(1 байт = 8 бит, 1 Кб = 1024 байт)