program koren; var a,b,c,diskr,x1,x2:real; begin readln (a,b,c); if a=0 then exit; diskr:=b*b-4*a*c; if diskr<0 then exit; x1:=(-b-sqrt(diskr))/(2*a)); x1:=(-b sqrt(diskr))/(2*a)); writeln (x1,x2); end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
