Question

Qbasic Программа )Даны три целых числа. Найти сумму двух наибольших из них.

Answer 1

Ответ:

Ответ ниже.

Объяснение:

sub main

a=1 'cdbl(inputbox("a="))

b=2

c  

if a<=b and a<=c then

 msgbox b+c

elseif b<=c and b<=a then

 msgbox a+c

else

 msgbox b+a

endif

end sub

Answer 2

QBasic Программа: Найти сумму двух наибольших чисел

Для решения этой задачи в QBasic можно использовать следующий алгоритм:

1. Вводим три целых числа с помощью команды `INPUT`. 2. Сравниваем эти числа и находим два наибольших числа с помощью условных операторов `IF...THEN`. 3. Складываем два наибольших числа и выводим результат с помощью команды `PRINT`.

Вот пример программы на QBasic, которая решает данную задачу:

CLS

' Вводим три целых числа
INPUT "Введите первое число: ", num1
INPUT "Введите второе число: ", num2
INPUT "Введите третье число: ", num3

' Находим два наибольших числа
IF num1 >= num2 AND num1 >= num3 THEN
    max1 = num1
    IF num2 >= num3 THEN
        max2 = num2
    ELSE
        max2 = num3
    END IF
ELSEIF num2 >= num1 AND num2 >= num3 THEN
    max1 = num2
    IF num1 >= num3 THEN
        max2 = num1
    ELSE
        max2 = num3
    END IF
ELSE
    max1 = num3
    IF num1 >= num2 THEN
        max2 = num1
    ELSE
        max2 = num2
    END IF
END IF

' Находим сумму двух наибольших чисел
sum = max1 + max2

' Выводим результат
PRINT "Сумма двух наибольших чисел: "; sum

END

Это простая программа, которая позволяет найти сумму двух наибольших чисел из трех введенных пользователем чисел. Программа сравнивает числа с помощью условных операторов и находит два наибольших числа. Затем она складывает эти два числа и выводит результат на экран.

Примечание: Приведенный выше код является примером и может быть изменен или оптимизирован в зависимости от конкретных требований и предпочтений программиста.