Написать на QBasic программу для вычисления произведения наибольшего и наименьшего из трех чисел. Числа вводятся с клавиатуры.
5-9 класс
|
1 input a
2 input b
3 input c
20 if a>b then goto 60
30 if b>c then goto 110
40 max=с
50 goto 120
60 if a>c then goto 90
70 max=с
80 goto 120
90 max=a
100 goto 120
110 max=b
120 if a<b then goto 160
130 if b<c then goto 210
140 min=с
150 goto 220
160 if a<c then goto 190
170 min=с
180 goto 220
190 min=a
200 goto 220
210 min=b
220 print min*max
Другие вопросы из категории
1. Вычислить корни квадратного уравнения ax²+bx+c=0? заданного коэффициентами а, b, с (предполагается, что а не равно 0 и что дискриминант уравнения неотрицательный).
ПЕРЕВЕСТИ В "ПАСКАЛЬ"
– 64-символьный.
Вождь племени Рококо получил сообщение от вождя племени Дореми.
Переводчик племени Рококо сделал перевод текста сообщения для своего вождя. При
этом количество символов в переведённом тексте увеличилось на 50% по сравнению
с полученным сообщением.
Сравните информационные объёмы присланного сообщения и его перевода.
Читайте также
амеба каждые 3 часа делиться на 2 клетки. Определить, сколько амеб будет через 3,6,9,12 и 24 часа.
3) дано натуральное числоо N и действительное число Х. Вычислить сумму ряда sin(x)+sin(2x)+sin(3x)+...+sin(Nx).
4) написать программу для вычисления n-ой степени числа А.
помогите, пожалуйста)
редактирования текстовых документовв) устройство для печати рисунков на бумагег) программа для создания и редактирования рисунков
выведите на экран их сумму. Если все они нечетные и A>B>C, то определите и выведите значения наибольшего и наименьшего из чисел. Иначе, выведите числа без изменения. Фрагмент программы: if (a mod 2 = 0) and (b mod 2 = 0) and (c mod 2 = 0) then begin S:=a+b+c; writeln('сумма равна ', S); end; if (a mod 2 <> 0) and (b mod 2 <> 0) and (c mod 2 <> 0) and (a>b) and (b>c) then begin writeln('наибольшее число ', A); writeln('наименьшее число ', C); end else writeln('a= ',a,' b= ', b, ' c= ',c);