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

SkvidLe SkvidLe    2   04.03.2019 05:10    2

Ответы
mirimyan79 mirimyan79  24.05.2020 01:18

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

 

 

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика

Популярные вопросы