Напишите программу на паскале ax^2+bx+c< 0

Program a1; var a,b,c,x,x1,x2,d: real; begin  write('введите а ');   read(a); write('введите b '); read(b); write('введите c '); read(c);   begin    d: =sqr(b)-4*a*c;   if d< 0 then    begin      write('нет корней');     end  else      begin      if d=0 then      begin        x: =-b/(2*a);       write('x=' , x);       end    else        begin        x1: =(-b+sqrt(d))/(2*a);       x2: =(-b-sqrt(d))/(2*a);       write('x1=',x1,'x2=',x2);       end;       end;       end;       end.               

print ('Добро в магазин "Магнит"')

# Форматированный вывод

print (''' Творог - номер 401, цена за пачку - 100 руб.

Молоко - номер 402

Йогурт - номер 403

Сметана - номер 404

Мороженое - номер 405

Колбаса - номер 501

Ветчина - номер 502

Паштет - номер 503

Стейк - номер 504

Пельмени - номер 505

Фасоль - номер 601

Тунец - номер 602

Маслины - номер 603

Ананасы - номер 604

Оливки - 605'''

)

n = 1

number_product = 0

price_product = 0

count_product = 0

total_sum = 0

check = ''

while n < 10:

print ( 'Введите через пробел номер, цену, количество купленного товара №{}'

. format(n))

number_product, price_product, count_product = map(float, input().split())

if number_product < 0 or price_product < 0 or count_product < 0:

break

else:

if 400 <= number_product <= 405:

temp_price = price_product * count_product - 0.5

elif 500 <= number_product <= 505:

temp_price = price_product * count_product * 0.7

elif 600 <= number_product <= 605:

temp_price = price_product * count_product * 0.85

total_sum += temp_price

total_sum_not_sale += price_product * count_product

check += f'''{number_product}, price - {price_product}, count - {count_product}

all_price - {temp_price} \n'''

n+=1

print(check)

print(f'Итог: {total_sum_not_sale}')

print(f'Скидка: {total_sum_not_sale - total_sum}')

print(f'К оплате : {total_sum}')

Объяснение:

Начало

|

a , b , c

|

d = b * b - 4 * a * c

|

- D > = 0 +

| |

ДКН X1 =(-b + SQR(D)) / (2*a)

| |

| X2 =(-b - SQR(D)) / (2*a)

| |

| X1 , X2

| |

| |

| |

| Конец |

Вот и все

Программа

PRINT “Количество корней квадратного уравнения“

INPUT “Ввести a, b, c: “, a, b, c

d = b * b – 4 * a * c

IF d >= 0 THEN

IF d > 0 THEN PRINT “2 разных корня“ ELSE PRINT “2 одинаковых корня“

ELSE PRINT “Действительных корней нет“

словесная программа

Начало

Ввод a,b,c

d = b * b - 4 * a * c

Нет D 》=0 Да

X1 =(-b + SQR(D)) / (2*a)

X2 =(-b - SQR(D)) / (2*a)

X1 , X2

ДКН

Конец

Объяснение:

это правильный ответ