Напишите программу которая вычисляет дискрименант квадратного уравнения (в паскале)
Напишите программу которая вычисляет дискрименант квадратного уравнения (в паскале)
Гость
Ответ(ы) на вопрос:
ГостьУ тебя написано только дискриминант. Я написал, но мне кажется тебе нужны были корни
Var a,b,c,d:integer;
begin
read(a,b,c);
d:=b*b-4*a*c;
writeln(d);
end.
Гостьvar a,b,c,d:integer;
begin
writeln('Введите коэффициенты a, b, c:');
readln(a,b,c);
d:=b*b-4*a*c;
writeln('D = ',d);
end.
Пример:
Введите коэффициенты a, b, c:
5 2 8
D = -156
Не нашли ответ?
Похожие вопросы