Алгоритм выводящий на экран дискриминант квадратного уравнения
Var a,b,c,d:real; begin writeln('Введите коэффициенты уравнения через пробел'); read(a,b,c); d:=sqr(b)-4*a*c; writeln('Дискриминант = ',d:6:2); readln; end. Алгоритм можете составить сами исходя из программы. (Всего лишь замена служебных слов)
алгоритм и программа в паскале
var
ой, прошу прощения
спасибо)