1. 2^4 = 16 цветов
2. ln(16)/ln(2) = 4 бита достаточно
3. 2^24 = 24 бита / 8 = 3 байта
4. 1024*768*(ln(16777216)/ln(2)) бит пикс = 18874368 бит / 8 / 1024 / 1024 = 2,25 мегабайта объём необходим.
5. (ln(16)/ln(2)) бит пикс * 10 * 10 = 400 бит / 8 = 50 байт инф. объём
6. 128*128/8/1024 = 2; 4 кбайт / 2 = 2 бит на пиксель; 2^2 = 4 цветов
7. 640*480*3 байт пикс = 921600 байт вес; 921600 байт * 8 = 7372800 бит / 28800 бит сек = 256 сек
Ответ:
Объяснение:
program mod7;
var
i:integer;
p:int64;
begin
p:=1;
for i:=1 to 50 do
if i mod 7=0 then p:=p*i;
writeln('Цикл for. p=',p);
///////////////////////////
p:=1; i:=1;
while i<=50 do begin
if i mod 7=0 then p:=p*i;
i:=i+1;
end;
writeln('Цикл while. p=',p);
/////////////////////////////
i:=1;p:=1;
repeat
if i mod 7=0 then p:=p*i;
i:=i+1;
until i>50;
writeln('Цикл repeat. p=',p);
readln;
end.
См. решение во вложении. Всего возможно три варианта
<u>Ответ: цикл с заданным числом повторений (вид for i:=i1 to i2 do )</u>
Это текстовой файл. Программа Writer из Open/Libre office.