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

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

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

Leave a Comment