Пользователь вводит число , и это число нужно ввести в любую степень ,используя три цикла

Var - список переменных
переменные а,с присваивают тип integer, т.е. целые числа; b присваивает тип string, т.е строковый тип
begin - начало программы
readln - оператор ввода, окончание ln осуществляет переход на новую строку
str(a,b) - т.е. преобразовать данные числа в строку
переменная b так же присваивает тип строковый
Val(b,a,c) где: b- строка, а-результат, с-позиция с которой произошла ошибка преобразования или 0
writeln(а) - оператор вывода, окончание ln осуществляет переход на новую строку
end. - конец программы

Начало

|

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

ДКН

Конец

Объяснение:

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