Напишите программу, которая по введённым с клавиатуры числам e, f и g будет вычислять значение коэффициентов a, b и c квдратного уравнения по предлагаемым формулам, а также значение дискриминанта d, решать это квадратное уравнение и выдавать результаты его решения. a=|e-f|(|e-f| - в третьей степени) b= корень из (3e + 17)(3e+17 - в четвёртой степени) c=(g-f): 144, где d=b(в квадрате) - 4ac, корни уравнения x1, 2=(-b+- корень изd): 2a отладьте программу на следующем примере: e=2 f=-2 g=3 a=64 b=529 c=0, 0347222 d=279832 x1=-6< 53267e-05 x2=-8, 26556

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

e,f,g: integer;

begin

writeln("vvedite koefficienty: ");

read(e);

read(f);

read(g);

a: =sqr(abs(e-f))*abs(e-f);

b: =sqr(sqr(sqrt(3*e+;

c: =(g-f)/144;

d: =sqr(b)-4*a*c;

x1: =(-b+sqrt(d))/(2*a);

x1: =(-b-sqrt(d))/(2*a);

writeln("x1=",x1,"x2=",x2);

readln

end.

Сделай таблицу < table border=0> если хочешь с границами 1 < tr> < td> < img src="название 1 фото.расширение"> < /td> < td> < img src="название 2 фото.расширение"> < /td> < td> < img src="название 3 фото.расширение"> < /td> < td> < img src="название 4 фото.расширение"> < /td> < td> < img src="название 5 фото.расширение"> < /td> < /tr> < tr> < td> < img src="название 6 фото.расширение"> < /td> < td> < img src="название 7 фото.расширение"> < /td> < td> < img src="название 8 фото.расширение"> < /td> < td> < img src="название 9 фото.расширение"> < /td> < td> < img src="название 10 фото.расширение"> < /td> < /tr> < /table> тег < tr> начало строки,< /tr> конец строки, < td> ячейка,< /td> конц ячейки

// pascalabc.net 3.2, сборка 1379 от 21.01.2017 // внимание! если программа не работает, обновите версию! begin   for var n: =200 to 500 do begin       var k: =2;       for var i: =2 to n div 2 do       if n mod i=0 then           k+=1;       if k=6 then print(n)       end;   writeln end. результат 207 212 236 242 243 244 245 261 268 275 279 284 292 316 325 332 333 338 356 363 369 387 388 404 412 423 425 428 436 452 475 477