Оператор if...then - QBasic

Формулировка задачи:

Как это записать покомактней?

                    Листинг программы
                
 
                        
                          
                    
' ...
IF (a < 0 AND b < 0 AND c = 0) OR (a < 0 AND b = 0 AND c < 0) OR (a = 0 AND b < 0 AND c < 0) THEN
PRINT TAB(10);
PRINT "Zadannye chisla nepolojitelnye"
END IF
IF (a = 0 AND b = 0 AND c < 0) OR (a = 0 AND b < 0 AND c = 0) OR (a < 0 AND b = 0 AND c = 0) THEN
PRINT TAB(10);
PRINT "Zadannye chisla nepolojitelnye"
END IF
' ...

Решение задачи: «Оператор if...then»

Листинг программы

IF a <= 0 AND b <= 0 AND c <= 0 AND a + b + c < 0 THEN ...

Объяснение кода листинга программы

a, b, c - это переменные, значения которых сравниваются в условии оператора if.
Условие a <= 0 AND b <= 0 AND c <= 0 AND a + b + c < 0 означает, что выполнится только если все четыре значения удовлетворяют условиям.
Если условие выполняется, то в блок...THEN... помещается какой-то код, который будет выполнен.
Код в блоке...THEN... может содержать команды, которые изменяют значения переменных, выполняют расчеты или выводят результаты на экран.
Номер 20 не используется, так как в условии оператора if нет 20-й переменной или команды.