Даны три числа. Сумма каких двух чисел из них положительна — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
CLS
PRINT
PRINT "Nachojdenie dvych chisel iz trech,cumma kotorych polojitelna"
PRINT "Vvedite tri chisla"
INPUT "Pervoe...", a
INPUT "Vtoroe...", b
INPUT "Tret'e...", c
IF a = 0 AND b = 0 AND c = 0 THEN
PRINT "vse zadannye chisla ravny 0"
ELSE
IF a < 0 AND b < 0 AND c < 0 THEN
PRINT "vse zadannye chisla otrizatelnye"
ELSE
IF (a <= 0 AND b <= 0 AND c <= 0) THEN
PRINT "Zadannye chisla nepolojitelnye"
ELSE
d = a + b
e = a + c
f = b + c
IF d < 0 AND e < 0 AND f < 0 THEN PRINT "vse summy dvuh chisel otrizatelny"
IF d > 0 THEN PRINT "Summa pervogo i vtorogo chisel polojitelna."
IF e > 0 THEN PRINT "Summa pervogo i tretjego chisel polojitelna."
IF f > 0 THEN PRINT "Summa vtorogo i tretjego chisel polojitelna."
END IF
END IF
END IF

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment