Составить программу, выводящую количество корней квадратного уравнения

Question

Составить программу, выводящую количество корней квадратного уравнения

Экономика

Гость

Ответ(ы) на вопрос:

Гость

Var a,b,c:integer; q:real; Begin Writeln ('a*x^2+b*x+c'); Write('Введите A: '); readln(a); Write('Введите B: '); readln(b); Write('Введите C: '); readln(c); q:=b*b-4*a*c; if q>0 then writeln ('2 корня'); if q=0 then writeln ('1 корень'); if q<0 then writeln ('0 корней'); End.

Accepted Answer

var a,b,c:integer; q:real;beginwriteln ('a*x^2+b*x+c');writeln ('vvedite a');readln (a);writeln ('vvedite b');readln (b);writeln ('vvedite C');readln (c);q:=b*b-4*a*c;If q>0 then writeln (2);If q=0 then writeln (1);If q<0 then writeln (0);end.