с информатикой умоляю,
Составьте программу вычисления количества корней для каждого из трех квадратных уравнений с данными коэффициентами, используя подпрограмму вычисления количества корней квадратного уравнения 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
Ответы на вопрос:
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.
Популярно: Информатика
-
kiraн199912.12.2020 13:04
-
afsanka9810.06.2021 05:47
-
gelyusya19.10.2020 14:20
-
242Bob25.06.2021 16:30
-
gc1210.11.2020 05:49
-
Толик56630.01.2023 17:29
-
bogdansoroka2014.09.2021 23:30
-
25000h03.01.2020 16:40
-
АсяСокол09.04.2021 02:46
-
direcrtbyrage27.02.2022 01:43