1массив переменных a(10) заполнить последовательностью чисел от 1-10, затем с минимального количества циклов отсортировать его по убыванию. 2написать программу, которая определяет количество нечетных чисел кратных 3 наотрезке чисел от a до b cls a=10 : b= 150 ‘ а и в могут быть любыми. ‘ продолжить программу qbasik

qbasic не знаю, знаю только вижуал бэйсик

 

for i = 1 to 10

  a(i) = i

next i

for i = 1 to 5

  b = a(10+1-i)

  a(10+1-i) = a(i)

  a(i) = b

next i

 

s = 0;

for i = a to b

  if (i mod 2 =1) and (i mod 3 = 0) then

          s = s + 1

  end if

next i

 

 

Type   st = record       iquo: integer; {целая часть}       irem: integer; {числитель дроби}       idiv: integer; {знаменатель дроби}   end; function imax(i, j: integer): integer; begin   if i > j then imax : = i else imax : = j end; function imin(i, j: integer): integer; begin   if i < j then imin : = i else imin : = j end; function fr(i, j, k: integer): st; var   nmax, nmin: integer; begin   nmax : = imax(imax(i, j), k);   nmin : = imin(imin(i, j), k);   with result do   begin       iquo : = nmax div nmin;       idiv : = nmin;       irem : = nmax mod nmin   end end; var   a, b, c: integer;   r: st; begin   write('введите через пробел три целых числа: ');   readln(a, b, c);   r : = fr(a, b, c);   writeln('результат работы функции: ', r.iquo, ' целых и ', r.irem, '/', r.idiv) end. тестовое решение: введите через пробел три целых числа: 343 253 37 результат работы функции: 9 целых и 10/37

1. исходную логическую функцию для удобства записи будем использовать общепринятые сокращения. операцию логического сложения (дизъюнкцию) "∨" будем обозначать знаком "+". логическое умножение (конъюнкцию) "∧" будем обозначать знаком умножения (точкой) или опускать, как принято в . вместо знака логического отрицания будем использовать надчеркивание. 2. переведем в двоичную систему счисления заданные значения a, b, c: 3. построим таблицу истинности для функции у 4. переведем результат в десятичную систему счисления