Посчитать сумму чётных чисел от 20 до 30- QBasic(Бейсик)

1
2
3
4
FOR i = 20 TO 30 STEP 2
    s = s + i
NEXT
PRINT s

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

Leave a Comment