с информатикой умоляю,
Составьте программу вычисления количества корней для каждого из трех квадратных уравнений с данными коэффициентами, используя подпрограмму вычисления количества корней квадратного уравнения Ax2+Bx+C=0 (A, B, C - вещественные параметры, А<>0) по значению дискриминанта D:=b2-4ac.

Протокол работы программы:
A1= 3.00 B1= -15.00 C1= 12.00
A2= 1.00 B2= -3.00 C2= 3.00
A3= 1.00 B3= 5.00 C3= 7.00
количество корней первого уравнения = 2
количество корней второго уравнения = 0
количество корней третьего уравнения = 0

189
221
Посмотреть ответы 1

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

анг36
4,4(62 оценок)

Program abc; var a,b,c: integer; begin   writeln('введите количество килограмм');   read(a);   b=80; if a> =2 them  c: =a*b*(20/100) else c: =a*b;   writeln('стоимость яблок равна',c);   end; end.

Популярно: Информатика