Ответ:
var i : integer;
begin
for i:= 11 downto 4 do begin
writeln (i*i*i);
end;
readln;
end.
Объяснение: с downto
Program Natur;
Uses Crt;
Var a, Summa, n : integer;
Begin
Clrscr;
write('N=');
readln(N);
{Цикл с предусловием}
a:=2;
Summa:=0;
while a<=N do
begin Summa:= Summa + a; a := a + 1 end;
Writeln (' Результат первого суммирования:' , Summa) ;
{Цикл с постусловием}
а:=1;
Summa:=0;
repeat Summa:=Summa+ а; а:=а+1 until a>N;
Writeln
(' Результат второго суммирования:' , Summa) ;
{Цикл с параметром} Summa:=0;
for а := 2 to N do Summa : =Summa + a;
<span>Writeln (' Результат третьего суммирования:', Summa); End</span>
23 символа умножаешь на 8 битов
Получается 23*8=182 бита или 23 байта. (Один символ=1 байт=8 битов)
<span>Набрать кувшин 8 л. Из него отлить в кувшин 3 л. Затем вылить эти 3 л. Затем опять отлить из 8литрового в кувшин 3 л. Оставшаяся вода в 8литровом кувшине =2 л. Переливаешь в 3литровый. Потом набираешь полный 8литровый. Из него доливаешь воды в 3литровый, т.е. 1 л. Остается 7 л.</span>
1)176*512=90172 пикселей всего
2)33 Кбайт=33792 байт=270336 бит.
3)270336/90172=3
4) 2^3=8 цветов.
Ответ: 8