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

Question

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

Comments

а само уравнение?

Answer 1

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 корней');<br>End.

Comments

Перевел в более читабельную форму код HEuronYA

Answer 2

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);<span>end.