Напишите программу которая вычисляет дискрименант квадратного уравнения (в паска...

ildarapple 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

12 votes Thanks 4

petyaGavrikov

Verified answer

У тебя написано только дискриминант. Я написал, но мне кажется тебе нужны были корни

Var a,b,c,d:integer;
begin
read(a,b,c);
d:=b*b-4*a*c;
writeln(d);
end.

21 votes Thanks 29

Answers & Comments

Verified answer

решите пожалуйста Complete the sentences using the words in bold. Use two to fiv...

Ответте на вопросы срочно...

Ответте пожалуйста на вопросы...

Составить 15 предложений с Do, Make...

Ответе на вопросы пожалуйста срочно...

Переведите из прямой речи в косвенную 1 Variant Kate asked, “Do you do sports, N...

Переведите из прямой речи в косвенную 1 Variant Kate asked, “Do you do sports, N...

Напешите пожалуйста эссе на тему Что такое счастье для меня ?...

докажите что параллелограмм у которого высоты проведены из вершины тупого угла р...

Мини-сочинение "Моя картина". Какую картину вы бы написали будучи художником...

рекомендуемые вопросы

Helpful Links

Helpful Social