Разложите b в десятичной системе счисления. - id785557520200822 от akh97 22.08.2020 02:45

Question

Информатика: Разложите b в десятичной системе счисления.

akh97 · Accepted Answer

Vara,b,c,d,x1,x2: real; begin writeln( Дано уравнение вида ax^2+bx+c=0 ); Writeln ( Укажи переменную a ); readln(a); Writeln ( Укажи переменную b ); readln(b); Writeln ( Укажи переменную c ); readln(c); if a = 0  then writeln( Не квадратное уравнение! )  else begin       d:= sqr(b)-4*a*c;       if d 0 then writeln( Нет корней )                else begin                     x1:= (-b+sqrt(d))/2*a;                     x2:= (-b-sqrt(d))/2*a;                     writeln ( X1 = ,x1,  X2 = ,x2);      ...

Разложите "b" в десятичной системе счисления.

MOGZ ответил