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

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

 

 

 

//java class main { public static void main(string[] args){ system.out.print("input n: "); int n = new java.util.scanner(system.in).nextint(); int[] a = new int[n]; int b = 0; int c = 0; int d; for (int i = 0; i < a.length; i++) { d = new java.util.(2); a[i] = new java.util.(100000); if (d == 0) a[i] = -a[i]; if (a[i] > 0) b+=a[i]; else c+=a[i]; } system.out.println("positive: " + b); system.out.println("negative: " + c); }}проверка: $ javac main.javainput n: 15positive: 472449negative: -195366

    заметим, что всего имеется 900 трехзначных чисел - от 100 до 999.     если посчитать, сколько среди них чисел, кратных пяти, то вычтя его из 900, получим искомый ответ.     первое число, кратное 5, это 100. а все остальные получаются путем последовательного прибавления числа 5. // pascalabc.net 3.0, сборка 1064 var   i,n: integer; begin   n: =0; i: =100;   while i< 1000 do begin inc(n); i: =i+5 end;   writeln('количество чисел равно ',900-n) end. результат выполнения программы: количество чисел равно 720