// PascalABC.NET
<span>// Версия 3.3.5 сборка 1662 (29.04.2018)
</span>
begin
Println('Цифры:', ReadInteger('n-> '). ToString.Reverse.Println.Reverse.JoinIntoString(' '))
end.
<u>Пример:</u>
n-> 451234
432154
Цифры: 4 5 1 2 3 4
Var
mas:array [1..20] of integer;
i,sum,A:integer;
begin
for i:=1 to 20 do
read(mas[i]);
for i:=1 to 20 do
If odd(mas[i]) then
sum:=sum+mas[i];
writeln('Сумма элементов имеющих нечетное значение = ',sum);
writeln('Введите А');
readln(A);
writeln('Индексы элементов, значение которых больше,чем А:');
for i:=1 to 20 do begin
if mas[i]>A then
write(i,' ');
end;
end.
При оцифровке сигнала количество уровней квантования называют также глубиной дискретизации или разрядностью. Глубина дискретизации измеряется в битах и обозначает количество бит в двоичном слове, выражающих амплитуду сигнала. Чем больше глубина дискретизации и чем больше частота дискретизации, тем точнее цифровой сигнал соответствует аналоговому. В случае однородного квантования глубину дискретизации называют также динамическим диапазоном и измеряют в децибелах (1 бит ≈ 6 дБ).
Глубина звука (битность, уровень квантования) - <span>важнейший параметр для цифрового звука, определяющий численное значение амплитуды сигнала. Иными словами, АЦП делает замер и записывает численное значение данного замера, а величина этого значения как раз зависит от уровня квантования. Например 16-битное квантование дает нам 65536 уровней. В большинстве своем на многих компьютерах звук кодирован с глубиной 16 бит. Многие хорошие звуковые карты и профессиональное оборудование может кодировать звук с глубиной 24 бита. Зачем нужно повышение битности звука? Для увеличения максимального динамического диапазона и для уменьшения шумов квантования.</span>
var a,b,c,e,k:integer;
begin
k:=9;//вставить любоое число
a:=-1;
while a<>0 do
begin
read(a);
if a>0 then b:=b+a;
if a<0 then c:=c+1;
if (a mod k = 0)and(a<>0) then
if e=0 then e:=a else e:=e*a;
end;
writeln('сумма положительных элементов = ',b);
writeln('кол-во отрицательных элементов = ',c);
writeln('произведение элементов, кратных ',k,' равнo ',e);
end.
если нужно , чтобы пользователь вводил К , то за место оператора к:=9; вставить read(k);
ОООчень сложноСам хотел спросить.
