Цикл for для этого подходит
1. Для начала, определим ёмкость дискеты в битах.
Это будет
бит.
2. Если изображение черно-белое, значит 1 пиксель кодируется одним битом (0 - черный, 1 - белый).
Значит, объём одного изображения равен
бит.
3. Поделим ёмкость дискеты на объём одного изображения и выделим целую часть, это и будет количеством изображений, которые поместятся на дискете:
<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
begin
var b:=ArrRandom(10,-10,10); b.Println;
Writeln('Сумма элеменов массива равна ',b.Sum);
Writeln('Количество четных чисел равно ',b.Count(x->x.IsEven))
end.
Пример
1 10 3 -4 -10 -1 -6 0 -4 9
Сумма элеменов массива равна -2
Количество четных чисел равно 6
1. 9379 из десятичной в двоичную:
10010010100011
2. 9379 из десятичной в восьмеричную:
22243
3. 9379 из десятичной в шестнадцатеричную:
24А3
<span>Будут выведены пять звездочек в одной строке.</span>