С ЗАДАЧЕЙ
Написать программу, которая определяет, является ли целое n, заданное пользователем числом Мерсенна.
4 ≤ n ≤ 2 000 000 000
Число Мерсенна – это натуральное число вида M = 2p – 1, где p – натуральное число число – это натуральное число, которое не делится нацело ни на одно число кроме самого себя и единицы.
Важно:
Так как n = × , при n= m1 × m2, если m1 > , то m2 < . Также при чётном m1 или m2, n будет чётным. Значит для того, чтобы определить, является ли числом, достаточно проверить его делимость на 2 и на нечётные числа на промежутке от 3 до
Примеры:
Число 1023 не является числом Мерсенна.
Число 127 является числом Мерсенна.
1. Определяем объем файла, необходимого для звучания в течении 1 сек.
Kсек=7500 / 10 = 750 (Кбайт)
2. Поскольку файл стереофонический, то он использует два звуковых канала, поэтому объем k1 следует уменьшить вдвое, получая объем, занимаемый одним каналом. k=Kсек / 2 = 750 / 2 = 375 (Кбайт) или 375 х 1024 = 384000 (байт)
2. Глубина звука 32 бита - это 32 / 8 = 4 байта. m=4.
3. Количество отсчетов на канал в секунду составит k / m = 384000 / 4 = 96000. Это соответствует частоте дискретизации 96 000 Гц или 96 Кгц.
*** 2 ***
Всего имеется 30х30=900 точек, которые занимают 1012.5 байт. Тогда одна точка занимает 1012.5 / 900 = 1.125 (байта) или 1.125 х 8 = 9 (бит).
В девяти битах можно разместить палитру, количество цветов в которой составляет два в девятой степени (считая, что черный - это тоже цвет).
var i:integer;
var sum: integer;
begin
Randomize;
sum:=0;
for i:=1 to 20 do begin
mass[i]:=Random (46) - 25; write(mass[i],' ');
end;
for i:=1 to 20 do
if (i mod 2 = 0) then
sum+=mass[i];
writeln('Summa chetnih elementov: ', sum);
var kolTwo:integer;
kolTwo:=0;
for i:=1 to 20 do
if (mass[i] = 2) then
kolTwo+=1;
writeln('Elementov = 2 - ', kolTwo);
for i:=1 to 20 do
if (mass[i] > 0) then
mass[i] := 0;
writeln('Noviy massiv ');
for i:=1 to 20 do
write(mass[i],' ');
end.