Написать программу для решения уравнения AX2+ BX+C=0. (Дописать до конца) 2)Написать программу для решения неравенства Bx+C<0
Написать программу для решения уравнения AX2+ BX+C=0. (Дописать до конца) 2)Написать программу для решения неравенства Bx+C<0. 3)Написать программу для решения уравнения
1. program z1; var a,b,c,x1, x2:real; begin writeln('введите коэффициенты А (отличное от нуля), В и С '); readln(a,b,c); if sqrt(b*b-4*a*c)>0 then begin x1:=(-b+sqrt(b*b-4*a*c))/2/a; x2:=(-b-sqrt(b*b-4*a*c))/2/a; writeln('x1=',x1,', x2=',x2); end else if sqrt(b*b-4*a*c)=0 then begin x1:=(-b+sqrt(b*b-4*a*c))/2/a; writeln('x=',x1) end else writeln('уравнение не имеет корней'); end.
2. program z1; var b,c,x:real; begin writeln('введите коэффициенты B (отличное от нуля) и С '); readln(b,c); x:=-c/b; writeln('x<',x); end.
Var a,a1,a2:integer; Begin a:=10; Write('Двузначные числа, сумма цифр которого равна 12: '); while a<100 do begin a1:=a mod 10; a2:=a div 10; if (a1+a2)=12 then write(a,', '); a:=a+1; end; <span>End.