1. Для начала, определим ёмкость дискеты в битах.
Это будет
бит.
2. Если изображение черно-белое, значит 1 пиксель кодируется одним битом (0 - черный, 1 - белый).
Значит, объём одного изображения равен
бит.
3. Поделим ёмкость дискеты на объём одного изображения и выделим целую часть, это и будет количеством изображений, которые поместятся на дискете:
На одно число отведено 5 бит
всего чисел 2^5=32 => K=32
const
n = 10;
var
a:array[1..n] of integer;
i, j:integer;
begin
randomize;
writeln('Исходный массив:');
for i := 1 to n do
begin
a[i] := random(101);
write(a[i], ' ');
end;
for i := 1 to n - 1 do
for j := 1 to n - i do
if a[j] mod 10 > a[j + 1] mod 10 then
begin
a[j] := a[j] + a[j + 1];
a[j + 1] := a[j] - a[j + 1];
a[j] := a[j] - a[j + 1];
end;
writeln;
writeln('Результат:');
for i := 1 to n do
write(a[i], ' ');
writeln;
end.
Var
x, a, s: real;
n, i: integer;
begin
write('Введите x и n ');
readln(x, n);
a := 1;
s := a;
for i := 1 to n do
begin
a := a * (-1) * x * x / (2 * i - 1) / (2 * i);
s := s + a;
end;
writeln('S = ', s:10:3);
end.
А фото??????????????????????????????????????????????????