Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Составте программу которая , вычисляет корни...
Напишите в тетради плз)

Ответ оставил Гость

Program korni;
uses crt;
var
a,b,c:integer;
x1,x2:real;
begin
writeln(введите коэффициент А, B и С);
readln(a,b,c);
x1:=sqr(b)-4*a*c;
x2:=(b*(-1)-sqrt(x1))/a*2;
x1:=(b*(-1)+sqrt(x1))/a*2;
writeln(корни уравнения: x1=,x1,,x2=,x2);
end.