Question

Из 15цифр получить не чётные числа(информатика qbasik)cрочно 5 cls//10 rem масив//20 dim a(15)//40 input a(i)//50 next i//60 print//70 for i=1 to 15 step 2//80print a(i); " "; //90 next i//110 print//120 rem нечётное число//134 for i=1 to 15//135 print//140 next i//150 end{{{от 1до15 всё правельно когда начинаю с 2проверять=2,3,4,5,6,7,8,9,10,11,12,13,14,15,1 мне 2выдаёт как нечётное а если в 70шаге место 1 поставить 2 всё правильно, зато от 1-15 не проходит потом(

Answer 1

Я мало чего понял из условия. Если я правильно понял, то мы вводим 15 чисел, и хотим чтобы компьютер нам выдал только нечтные их них.

Вот эта программа работать не будет по любому хотя бы из-за того, что на строке с меткой 50 стоит NEXT, хотя команды FOR до этого не было - ошибка.

Я написал програмку так как я понял с нечетными числами:

CLS
DIM a(15)
FOR i = 1 TO 15
INPUT a(i)
NEXT i
FOR i = 1 TO 15
IF (INT(a(i) / 2)) <> (a(i) / 2) THEN PRINT a(i)
NEXT i
END