Var k,summa:integer;
begin
for k:= 15 to 90 do
if k mod 2 =0 then
summa:= summa + 2*k;
writeln(summa);
end.
1. 16, 256, 2^16, 2^24, 2^32
3. 256 цветов, следовательно 8 бит глубина цвета. 120*8 бит/ 8 бит =120 точек
4. 256*1024*8 (объем памяти в битах)> 4(глубина цвета при палитре в 16 цветов)*640*180 Значит объема памяти достаточно
2 в 4 раза, так как 65536 это 16 степень числа 2, а 16 - - четвертая, следовательно 16/4=4
Переведем число 972 в двоичную систему счисления:
972₁₀ = 1111001100₂
Нужно осуществить 10 циклических сдвигов.
Получаем: 0111100110₂ = 486₁₀