1) program lineynoeuravnenie; var a, b: integer; x: real; begin writeln ('введите коэффициенты a и b'); readln (a, b); x: =-b/a; write ('решите уравнение', x); end. 2) program veschestvennoe; var a, b, c: integer; d, x1, x2: real; begin writeln ('введите коэффициент a, b, c'); readln (a, b, c); if a=0 then begin x1: =-c/b; write ('одно решение', x1), end; d=b*b-4*a*c; if d< 0 then write ('корней нет'); if d=0 then begin x1: =-b/(2*a); write ('одно решение', x1); end; else begin x1: =(-b+sqrt(d))/(2*a); x2: =(-b-sqrt(d))/(2*a); write (x1,'',x2); end; end.
дано:
d = 8 кгц
i = 16 бит
t = 2 мин
найти:
v - ?
решение:
v = d * i * t
d = 8 кгц = 8 * 1000 = 8000 гц
t = 2 мин * 60 = 120 сек
v = 8000 * 16 * 120 = 15360000 бит / 8= 1920000 байт /1024 = 1875 кбайт / 1024 = 1,83 мбайт
ответ: 1,83 мбайт объем звукового файла