решить задачи mix1, mix2, mix3, mix4, mix5, в PascalABC(Uses Robot)!

Начало

|

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

ДКН

Конец

Объяснение:

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

Тем что в первом выражении задано условие a больше в: и теперт,стало что а = b

дальше мы сделали теперь a = c

значит значение а уже равно с

а в другом блоке кода

тоже самое выражение но появилось уже else значит условие выполниться тогда и только тогда, когда будет условие if фальшивкой

а в данном примере он правдивое, значит условие else не произойдет  

вот пример  

int a = 5;

int b = 5;

int c = 5;

if a = b:

a = c

где будут различны

int a =6 ;

int b = 7;

int c = 8;

if a < b: a != b

a = b;

a = c;

все теперь значения разные

Объяснение: