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

Помогите написать программу для Pascal ABC для нахождения корней дискриминанта

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

program z1; 
var a,b,c,D:real; 
begin 
writeln(Vvedite a); 
readln(a); 
writeln(Vvedite b); 
readln(b); 
writeln(Vvedite c); 
readln(c); 
D:=(b*b)-(4*a*c); 
writeln(Discriminant); 
writeln(D:1:2); 
D:=(-b+sqrt(D))/(2*a); 
writeln(1 koren); 
writeln(D:1:2); 
D:=(-b-sqrt(D))/(2*a); 
writeln(2 koren); 
writeln(D:1:2); 
readln 
end.