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

@_Anya_ · Регистрация: 14.12.2014

Студворк — интернет-сервис помощи студентам

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

@Taatshi · 14.12.2014, 18:47

_Anya_, одна тема - один вопрос

echs · 25.05.2016, 10:11

Программа проверена

QBasic/QuickBASIC

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

@_Anya_ 0 / 0 / 0 Регистрация: 14.12.2014 Сообщений: 4
		1
	Найти сумму двух наименьших чисел и удвоенное произведения наибольшего с наименьшим 14.12.2014, 18:22. Показов 1988. Ответов 2 Метки нет (Все метки) Даны три числа А, В, С. Найти сумму двух наименьших чисел и удвоенное произведения наибольшего с наименьшим. 0

@Taatshi Администратор 11999 / 5330 / 268 Регистрация: 05.04.2011 Сообщений: 14,086 Записей в блоге: 2
	14.12.2014, 18:47	2
	_Anya_, одна тема - один вопрос 0

Опции темы

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

Решение