Написать програму решения уравнения ах^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.

понадобится 24 секунды.

var i, j, min, min_i, min_j: integer; a: array[1..5, 1..5] of integer;

begin for i : = 1 to 5 do begin for j : = 1 to 5 do begin a[i, j] : = random(100) + 1; write(a[i, j]: 4); end; writeln; end; min : = 999; for i : = 1 to 5 do for j : = 1 to 5 do if min > a[i, j] then begin min : = a[i, j]; min_i : = i; min_j : = j; end; a[min_i, min_j] : = 0; writeln('массив с замененным минимальным элементом'); for i : = 1 to 5 do begin for j : = 1 to 5 do write(a[i, j]: 4); writeln; end; end.