1.
1500 Кбайт = 1500*1024 байт
Память для 1 пикселя:
1500*1024/(840*640) ≈ 2,8 байт ≈ 2 байта (округляем в меньшую сторону) = 16 бит
Количество цветов в палитре = 2^16 = 65536
2.
При использовании 32-цветной палитры для хранения 1 точки необходимо log(2)32 = 5 бит
Для всего изображения:
64*256*5 бит = 64*256*5/8 байт = 10240 байт = 10240/1024 Кбайт = 10 Кбайт
Var a:array[1..20] of integer;
i,k:integer;
begin
for i:=1 to 20 do begin
read(a[i]);
if not odd(a[i]) then k+=1;
end;
writeln(k);
<span>end.</span>
Var
a,b,c,d,e,y:integer;
begin
write('Введите длины всех сторон пятиугольника, см : ');
readln(a,b,c,d,e);
y:=a+b+c+d+e;
writeln('Периметр данного пятиугольника, см = ',y);
readln;
<span>end.</span>