Найти дискриминант квадратного уравнения, если коофициент вводится с клавиатуры

126

428

Посмотреть ответы 2

Ответы на вопрос:

salamov1213

Информатика

4,4(58 оценок)

Var a, b, c, e, f: integer; d, x1, x2: real; begin write('введите коэффициент x^2: '); readln(a); write('введите коэффициент x: '); readln(b); write('введите свободный член: '); readln(c); d: =b*b-4*a*c; if (d> =0) then begin x1: =(-b+sqrt(d))/(2*a); x2: =(-b+sqrt(d))/(2*a); write('уравнение имеет 2 корня: '); writeln; writeln('первый корень: ',x1: 4: 2); writeln('второй корень: ',x2: 4: 2); end else writeln('дискриминант < 0'); readln; end.

stalker1897ox9hzs

Информатика

4,4(26 оценок)

Var a ,b,c : real; begin writeln ('введите три числа'); readln (a,b,c); if (a< b+c) and (b< a+c)and(c< a+b) then begin if (a=b) and (a=c)and (b=c) then writeln (' треугольник равносторонний') else begin if (a=b)or(a=c)or(b=c) then writeln ('треугольник равнобедренный') else writeln ('треугольник разносторонней'); end; end else writeln ('треугольника с заданным сторонами не существует'); end.