Найти сумму двух наименьших чисел и удвоенное произведения наибольшего с наименьшим - QBasic

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

Даны три числа А, В, С. Найти сумму двух наименьших чисел и удвоенное произведения наибольшего с наименьшим.

Код к задаче: «Найти сумму двух наименьших чисел и удвоенное произведения наибольшего с наименьшим - QBasic»

textual
CLS
RANDOMIZE TIMER
 
DIM a AS INTEGER
DIM b AS INTEGER
DIM c AS INTEGER
 
a = 50 * RND
b = 50 * RND
c = 50 * RND
 
IF a > b THEN SWAP a, b
IF a > c THEN SWAP a, c
IF b > c THEN SWAP b, c
 
PRINT a; b; c
PRINT "SUMMA ="; a + b
PRINT "2*A*C ="; 2 * a * c
END

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

13   голосов, оценка 3.769 из 5


СОХРАНИТЬ ССЫЛКУ