Предмет: Информатика,
автор: koneva90
Помогите составить алгоритм решения(блок-схема) уравнения ax2+bx+c=0
Очень срочно!
Ответы
Автор ответа:
0
var x1,x2,D:real;
a,b,c:integer;
begin
readln(a,b,c);
D:=sqr(b)-4*a*c;
x1:=(-b+sqrt(D))/(2*a);
x2:=(-b-sqrt(D))/(2*a);
writeln(x1,x2);
readln;
end.
a,b,c:integer;
begin
readln(a,b,c);
D:=sqr(b)-4*a*c;
x1:=(-b+sqrt(D))/(2*a);
x2:=(-b-sqrt(D))/(2*a);
writeln(x1,x2);
readln;
end.
Похожие вопросы
Предмет: Другие предметы,
автор: irinagertz
Предмет: Русский язык,
автор: gerlcrazy048
Предмет: Биология,
автор: Аноним
Предмет: Информатика,
автор: pevgen74
Предмет: Алгебра,
автор: женька8991