1 2 3 4 5 6 7 8 | CLSINPUT "Vvedite koef a:"; aINPUT "Vvedite koef b:"; bINPUT "Vvedite koef c:"; cIF a = 0 AND b = 0 AND c <> 0 THEN PRINT "Korney net": ENDIF a = 0 AND b = 0 AND c = 0 THEN PRINT "Korni est": ENDIF a = 0 AND b <> 0 THEN PRINT "Korni est": ENDIF (b ^ 2 - 4 * a * c) < 0 THEN PRINT "Korney net" ELSE PRINT "Korni est" |
Тестирование выполнено в программе QB64 ( Скачать )