procedure p(x:integer; var st:string); type name = array[0..9] of String[50]; const s1 : name = (' ноль ',' один ',' два ',' три ',' четыре ',' пять ',' шесть ',' семь ',' восемь ',' девять '); s2: name = (' ',' десять ',' двадцать ',' тридцать ',' сорок ',' пятьдесят ',' шестьдесят ',' семьдесят ',' восемьдесят ',' девяносто '); s3: name = (' ',' сто ',' двести ',' триста ',' четыреста ',' пятьсот ',' шестьсот ',' семьсот ',' восемьсот ',' девятьсот '); s4 : name = (' ',' одиннадцать ',' двенадцать ',' тринадцать ',' четырнадцать ',' пятнадцать ',' шестнадцать ',' семнадцать ',' восемнадцать ',' девятнадцать '); var s,d,e : Integer; begin s:= x div 100; x:=x mod 100; st:=s3[s]; d:= x div 10; e:=x mod 10; if (d=1) and (e<>0) then st:=st+s4[e] else st:=st+s2[d]+s1[e]; end; var x:integer; st:string; Begin Write('Введите число [0..999] :'); Readln(x); p(x,st); writeln(st); End.
Пример: <span>Введите число [0..999] : 714 семьсот четырнадцать</span>
Частота дискретизации 22.05 кГц = 22050 Гц означает, что в секунду делается 22050 отсчетов уровня звука. Каждый отсчет в одном канале звука кодируется 16 битами, что составляет 16/8 = 2 байта. В стереофайле каналов два, потому на отсчет требуется 2×2 = 4 байта. Секунда звука кодируется 4×22050 = 88200 байтами. А пять секунд потребуют 5×88200 = 441000 байт.
При однобайтной кодировке символ занимает 1 байт, поэтому в документе будет 441 000 символов.
Сначала небольшие пояснения. Если после первого года количество рыбы в пруду не уменьшится, то вылов небольшой, и так может продолжаться бесконечно. Если уменьшится, то можно попробовать сделать то, что написано в условии, и посмотреть, когда всё закончится.