Регистрация
DimitryPanika
14.03.2021 02:08
Информатика
Есть ответ 👍

Создайте главное окно программы.как это сделать? ​

170
468
Посмотреть ответы 1

Ответы на вопрос:

rakitina03
rakitina03
4,5(16 оценок)
Var a,b,c,x1,x2,d: integer; begin   readln(a,b,c):   if a=0 then     writeln('уравнение не квадратное')   else   begin   d: =sprt(b*b-4*a*c);   if d< 0 then     writeln('корней нет')   else if d=0 then     x1: =(-1*b)/(2*a);     writeln(x1)   else if d> 0 then     x1: =(-1*b-d)/(2*a);     x2: =(-1*d+d)/(2*a);     writeln(x1,' ',x2);   end; end.

Популярно: Информатика