Вывести все четные числа от 1 до 100 — QBasic(Бейсик)

CLS
FOR i = 2 TO 100 STEP 2
    PRINT i;
NEXT i
END

Тестирование выполнено в программе QB64 ( Скачать )

Leave a Comment