Из 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 RE...

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 RE...

Из 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 не проходит потом(ПОМОГИТЕ

Гость

Ответ(ы) на вопрос:

Accepted Answer

Я мало чего понял из условия. Если я правильно понял, то мы вводим 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