Составить программу нахождения дискриминанта квадратного трёхчлена а.в,c - вводимых с клавиатуры
Составить программу нахождения дискриминанта квадратного трёхчлена а.в,c - вводимых с клавиатуры
Гость
Ответ(ы) на вопрос:
Гостьprogram ZZZ;
var a, b, c : integer ;
begin
WRITELN ('Введите значения коэффициентов квадратного трехчлена a,b,c');
readln (a,b,c);
D:= b*b - 4*a*c;
WRITELN ('Дискриминант квадратного трехчлена равен ',D);
end.
Не нашли ответ?
Похожие вопросы