Выведите на экран все чётные числа от 2 до 100 включительно — QBasic(Бейсик)

CLS
FOR X = 2 TO 100 STEP 2
    PRINT X,
NEXT

Следующий вариант

CLS
FOR X = 2 TO 100
    IF X MOD 2 = 0 THEN PRINT X,
NEXT

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

Leave a Comment