Вычислить произведение целых чисел введенных с клавиатуры . произведение подсчитывается до тех пор , пока вводятся числа в интервале от -10 до +10 через

Var  a,p : integer; begin p : = 1;   read(a); repeat  p: = p*a; read(a) until (a < -10) or (a > 10); write(p); end.

Здесь задается только длина числа, а само число выводится рандомно, но если что, то  можно сделать ввод с клавиатуры. var     n,x: integer;     k,m,i: byte;   begin     randomize;   write ('введите длину числа (m): ');   readln (m);   x: =1; // величина ограничителей значений числа при рандомном вводе   for i: =2 to m do     x: =x*10;   n: =random(x,x*10-1);   writeln ('n=',n);   for i: =1 to m do begin     if (n mod 10) mod 2 =0       then k: =k+1;     n: =n div 10;   end;   writeln;   writeln ('в этом числе ',k,' четных цифр'); end. пример: введите длину числа (m): 4 n=5297 в этом числе 1 четных цифр

размер цифрового моноаудиофайла измеряется по формуле а=d*t*i,   d- частота дискретизации (гц), т- время звучания или записи звука,  i разрядность регистра (разрешение). в данной нада найта d (частота дискретизации (гц)) следственно решение будет тогда

сначала переводим 1.3 мб. в байты  1,3 мбайт = 1363148,8 байт                         

тогда   1363148,8 байт  : 60 : 1 = 22719,1 гц. значит d=22,05 кгц.