Составить программу, запрашивающую у пользователя три целых положительных числа и находящую сумму двух наименьших из них — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
CLS
PRINT "vvedite celoe polozhitel'noe chislo a"
INPUT a
PRINT "vvedite celoe polozhitel'noe chislo b"
INPUT b
PRINT "vvedite celoe polozhitel'noe chislo c"
INPUT c
s = 0
IF a > b AND a > c THEN max = a: min = b AND min = c
IF b > a AND b > c THEN max = b: min = a AND min = c
IF c > b AND c > a THEN max = c: min = a AND min = b
 
IF max = a THEN s = s + b + c
IF max = b THEN s = s + a + c
IF max = c THEN s = s + a + b
PRINT "summa men'shih chisel ravna"; s

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

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

Leave a Comment