Написать код для нахождения D(дискриминанта) в тетради и в FREE Pascal.(Используя приложение для телефона или ПК)

var a, b, c,d, x1, x2:Real;

begin

write('a=');ReadLn(a);

Write('b=');ReadLn(b);

Write('c=');ReadLn(c);

d:=sqr(b)-4*a*c;{вычислен дискриминант}

if d<0 then begin writeln('нет решения');break ;end;

if d=0 then begin WriteLn('Одно решение');WriteLn('x=' ,-b/(2*a));end;

WriteLn('x1=',(-b+Sqrt(d))/(2*a));

WriteLn('x2=',(-b-Sqrt(d))/(2*a));

readln;

end.

Объяснение:

Я профи в этом

Эта программа кроме дискриминанта ещё найдёт иксы к тому же если нет решения, программа напишет нет решения

Я смог

Не знаю этот язык программирования, извини, но есть опыт в работе с другими.

Думаю нужно вывести в консоль формулу дискриминанта пользователю, т.е

D = b*b - 4  * a * c;

Потом дать пользователю ввести значения для переменных b, a и c.

Дальше зависит от программы как присваивать

----Моделирование это- исследование объектов познания на их моделях.

по большей части 3D-редактор используется для создания 3D моделей(мультики,игры).

----самые популярные 3D-редакторы:

Pixologic ZBrush, Autodesk Mudbox.

----программа SketchUp для моделирования относительно трехмерных объектов-строений,мебели, интерьера.

---основные инструменты: Select (выбрать) , Make Component (создать компонент) , Paint Bucket (заливка) и Eraser(ластик)