Var a, b, x : real; Begin Write('Введите а: '); Readln(a); Write('Введите b: '); Readln(b); X := -b + b * b - 4 * a * b / 2 * a; Write('x = ', x : 0 : 2); Readln; End.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
