Составить программу нахождения дискриминанта квадратного трёхчлена а.в,c - вводимых с...

0 голосов
51 просмотров

Составить программу нахождения дискриминанта квадратного трёхчлена а.в,c - вводимых с клавиатуры


Информатика (25 баллов) | 51 просмотров
Дан 1 ответ
0 голосов

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.

(2.3k баллов)