Наверное, все-таки для ВЫВОДА чисел в порядке убывания?
Dim a As Double, b As Double, c As Double
Print "a = "; : Input a
Print "b = "; : Input b
Print "c = "; : Input c
if (a > b) and (b > c) then goto Label1
if (a > c) and (c > b) then goto Label2
if (c > a) and (a > b) then goto Label3
if (c > b) and (b > a) then goto Label4
if (b > a) and (a > c) then goto Label5
if (b > a) and (a > c) then goto Label6
Label1: Print c & ", " & b & ", " & a : End
Label2: Print b & ", " & c & ", " & a : End
Label3: Print b & ", " & a & ", " & c : End
Label4: Print a & ", " & b & ", " & c : End
Label5: Print c & ", " & a & ", " & b : End
Label6: Print a & ", " & c & ", " & b : End
Другие языки программирования и технологии
даны 3 разл целых числа a,b,c используя оператор GOTO составить программу для ввода чисел в порядке убывания
"для ввода чисел в порядке убывания"??? Программа-телепат. Должна угадать, что ей введут, да еще и расположить в порядке убывания.
Даниил Захаров
64 103
Похожие вопросы
- Вопросик по Pascal. Есть переменные A,B,C,D. Как сделать так, чтобы при вводе A выводилось цифра 1, B - 2, C-3, D-4?
- Дан двумерный массив целых чисел. Упорядочить прямую диагональ в порядке убывания.
- помогите решить задачу!...Даны целые числа a, b, c, являющиеся сторонами некоторого треугольника.Проверить истинность вы
- Создать программу по турбопаскаль вывести ответ желтым цветом даны три A,B,C числа найти максимальное
- помогите составить таблицы истиности -А -> (B + C); (A B) * C; -A + -B + C; - (A + B) * C ; A * B _+ C; A B
- Найти трехзначные числа a, b, c, все цифры которых различны и удовлетворяют уравнению a^2 – b^2 – c^2 = a – b – c.
- Программисты! Помогите пожалуйста! Нужно на паскале написать код к следующей задаче: Даны натуральные числа a, b, c
- срочно помогите написать программу на ассемблере вычисляющую R. R=x2+y2, где x=a+b-c, y=b*c-a. a,b,c вводятся с клавы
- {(a,b), (c,b), (c,a)} - является транзитивным или нет?
- Может ли кирпич, имеющий форму прямоугольного параллепипеда с ребрами a,b,c, пройти через круглое отверстие радиуса R?
конечно вывода, не тупой же, догадаешься