program nazvanie; var a,b,b1,k,k1:integer; begin write('Введите трехзначное число: '); readln(a); b:=a; while b<>0 do begin b1:=b mod 10; if b1 mod 2=0 then k:=k+1 else k1:=k1+1; b1:=b div 10; b:=b1; end; if k>k1 then write('Кол-во четных цифр больше, чем нечетных в числе ',a) else if k<k1 then write('Кол-во нечетных больше, чем четаных в числе ',a); end. Немного переделать и будет рабочая прога!
1. Частота дискретизации 32 кГц означает, что каждую секунду в каждом канале звука делаются и запоминаются 32000 отсчета уровня звукового сигнала. Разрешение 16 бит = 16/8 = 2 байта означает, что хранение одного такого отсчета требует 2 байта. Если файл стереофонический, у него два канала. Таким образом, чтобы сохранить одну секунду звучания потребуется 32000×2×2 = 128 000 байт = 128 000 / 1024 = 125 Кбайт памяти. 2. Если файл занимает 3500 Кбайт, то время его звучания составит 3500 / 125 = 28с
НАДО ПЕРЕВЕСТИ В МБАЙТЫ
230/8/1024/1024= 2,74181E-05 МБАЙТ