var
i, ans: longint;
begin
i := 10;
ans := 1;
while i < 100 do
begin
if (i mod 13 = 0) and (i mod 2 <> 0) then ans := ans * i;
inc(i);
end;
writeln(ans);
end.
Ответ:
Dim Massiv(9) as Integer ' Объявляем массив из 9 элементов
Dim Composition as Integer ' Результат произведения нечетных элементов массива
Dim index as Integer ' Индекс для доступа к элементам массива
' Заполняем массив случайными числами
For index = 0 to 9
Massiv(index) = Rnd() * 5
print Massiv(index) ' Вывод массива
Next
' Инициализируем переменную Composition
Composition = 1
For index = 0 to 9
If Massiv(index) Mod 2 <> 0 Then ' Если элемент не четный то выполнить произведение
Composition = Composition * Massiv(index)
End if
Next
print Composition ' Результат произведения
1) 32х32=1024 пикселей
16 градаций уместится в 4 битах (2^4=16)
1024х4=4096 бит = 512 байт = 0,5 кбайт
2)512х256=131072 пикселей
64КБ=65536 Байт = 524288 бит
524288/131072=4 бита на пиксель
2^4=16 цветов в изображении
Попробуйте зайти Где значки