Написать програму решения уравнения ах^3 + вх = 0 для произвольных а, в

vara, b, x2, x3 : real; begin writeln('введите коэффициент a'); readln (a); writeln('введите коэффициен b'); readln (b); if b = 0 then begin if a = 0 then writeln ('x - любое число') else writeln('корни ур-я равны: 0') end else if (a = 0) or (- b / a < = 0) then writeln ('корни ур-я равны: 0') else begin x2 : = sqrt(-b / a); x3 : = -sqrt(-b / a); writeln('корни ур-я равны 0, ', x2,' ',x3); end; readln; end.

(pascal.)

program ; var a,b,x1,x2,x3: real; beginwriteln('введите коэффициент a'); readln(a); writeln('введите коэффициен b'); readln(b);

x1: =0;

if (b> 0) and (a> 0) then writeln('корни ур-я равны ',x1)  elsex2: =sqrt(-b/a); x3: =-sqrt(-b/a); writeln('корни ур-я равны ',x1,x2,x3);

end.

эти знаки изображали человека и части его тела, орудия труда, оружие, лодки, животных, птиц, рыб, растения, поля, воды, горы, звёзды и т. д. - т.е. конкретные предметы. это было начало письма. письменные знаки, засвидетельствованные древнейшими памятниками, могут быть без труда возведены к их первоначальному рисуночному образу.

var

  a: array[1..5]of integer;

  i: integer;

begin

  for i: =1 to 5 do read(a[i]);

for i: =1 to 5 do write(a[i],' ');

writeln;

for i: =1 to 5 do if a[i]> =1024 then writeln(a[i] div 1024);

writeln;

end.