(время: 1 сек. память: 16 мб сложность: 28%)сложно найти человека, который любит решать однообразные по . в последнее время школьникам стало

Question

Информатика: (время: 1 сек. память: 16 мб сложность: 28%)сложно найти человека, который любит решать однообразные по . в последнее время школьникам стало легче, ведь с появлением компьютеров почти в каждой квартире стало существенно проще проверять себя.но программы, в которых решение уравнений является стандартной функцией, установлены не везде. напишите программу, которая сможет решить уравнениеax2 + bx + c = 0при заданных коэффициентах a, b и c.входные данныеединственная строка входного файла input.txt содержит

nikolaivanov11 · Answer

uses crt;var a,b,c,d,x:real; beginclrscr;     writeln( введите A,B,C );      readln( a,b,c );      d:=sqr(b)-4*a*c;      if d 0 then         writeln( действительных корней нет )      else if d=0 then         begin         x:=(-b)/2*a;         writeln( корень уравнения: ,x);         end else         begin         x:=(-b+sqrt(d))/2*a;         writeln( 1-ый корень уравнения: ,x);         x:=(-b-sqrt(d))/2*a;         writeln( 2-ой корень уравнения: ,x);         end end.P.S. Надеюсь на благодарность...

Популярные вопросы