Вычислитель сколько байтов занимает на cd одна минута стереозаписи ( частота дискретизации 44000) разрядность 16 битов ) какова максимальная продолжительность стереозаписи на диске ёмкостью 700мб
1 задача) 44000*16*60*2=10Мб а для второй задачи я использовала ту же частоту и дискретизацию. 700Мб=5872025600 бит t=5872025600/(44000*16*2)=4170 сек= 1час 9.5 мин
Var S:string; i,k:integer; Begin Write('Введите строку: ');ReadLn(S); LowerCase(S); k:=0; For i:= 1 to S.Length-2 do if S[i] = 'д' then if S[i+1] = 'о' then if S[i+2] = 'м' then k:=k+1; WriteLn(k) End.
Var S:string; i,d1,d2,d3:integer; Begin WriteLn('Введите строку:'); ReadLn(S); i:=0; Repeat i+=1 Until S[i] = ' '; d1:=i-1; Repeat i+=1 Until S[i] = ' '; d2:=i-d1-2; Repeat i+=1 Until i = S.Length; d3:=i-d2-d1-2; if d3 < d1 then d1:=d3; if d2 < d1 then d1:=d2; WriteLn(d1) End.
Var A,i,S:integer; Begin WriteLn('Введите 6-значное число:'); ReadLn(A); S:=0; For i:= 1 to 6 do Begin S:=S + (A mod 10); A:=A div 10; End; WriteLn('S = ',S) End.
И так:
Var A,S:integer; Begin WriteLn('Введите 6-значное число:'); ReadLn(A); S:=0; S:=A mod 10; A:=A div 10; S:=S + (A mod 10); A:=A div 10; S:=S + (A mod 10); A:=A div 10; S:=S + (A mod 10); A:=A div 10; S:=S + (A mod 10); A:=A div 10; S:=S + (A mod 10); WriteLn('S = ',S) End.
Или так
Var A:integer; Begin WriteLn('Введите 6-значное число:'); ReadLn(A); WriteLn('S = ',(A div 100000)+((A div 10000)mod 10)+((A div 1000)mod 10)+((A div 100)mod 10)+((A div 10)mod 10)+(A mod 10)) End.
а для второй задачи я использовала ту же частоту и дискретизацию.
700Мб=5872025600 бит
t=5872025600/(44000*16*2)=4170 сек= 1час 9.5 мин