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

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.