<span><em>uses crt;</em>
<em>var a,b,c,d,x:real;
</em>
<em>begin</em>
<em>clrscr;</em>
<em> writeln('введите A,B,C');
</em>
<em> readln( a,b,c );
</em>
<em> d:=sqr(b)-4*a*c;
</em>
<em> if d<0 then </em>
<em> writeln('действительных корней нет') </em>
<em> else if d=0 then </em>
<em> begin
</em>
<em> x:=(-b)/2*a;
</em>
<em> writeln('корень уравнения: ',x);
</em>
<em> end else </em>
<em> begin
</em>
<em> x:=(-b+sqrt(d))/2*a;
</em>
<em> writeln('1-ый корень уравнения: ',x);
</em>
<em> x:=(-b-sqrt(d))/2*a;
</em>
<em> writeln('2-ой корень уравнения: ',x);
</em>
<em> end
</em>
<em>end.</em>
<em><u>P.S. Надеюсь на благодарность и лучший ответ.</u></em>
</span>
10101101101=2555 (в восьмеричной)
10101101101=56D (в шестнадцетиричной
Объем аудиофайла расчитывается так: <em><u> I = k*r*f*t ,</u> </em>
где k - количество каналов записи (моно - 1, стерео - 2);
f - частота дискретизации (кол-во отсчетов, запоминаемых за 1 секунду, измеряется в Гц);
r - глубина кодирования (сколько бит приходится на 1 отсчет);
t - время звучания
итак, нам дано:
k = 1 т.к. у нас моноаудиофайл
I = 30 мб =30*1024*1024*8 бит = 3*10*2²³ бит
r = 16 бит = 2⁴ бит,
f = 48 кГц = 48 000 Гц = 3*2⁴*10³ Гц,
нужно найти время t.
из формулы <em><u>I = k*r*f*t </u></em> выразим t
t = I/(k*r*f)
t = (3*10*2²³)/(1*2⁴*3*2⁴*10³)= (3*10*2²³)/(2⁸*3*10³) = 2¹⁵/10²= 327,68 с.
результат подозрительный, конечно...
Var a, b, c, i: integer;
d: string;
begin
readln(a, b);
d := inttostr(a);
for i := 1 to length(d) do
c := c + strtoint(d[i]);
if (b = c) then writeln('Yes') else writeln('No');
<span>end.</span>