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

1
2
3
4
CLS
FOR X = 2 TO 100 STEP 2
    PRINT X,
NEXT

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

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

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

Leave a Comment