Question

Перевести на язык qBasic var i: integer; s: longint; begin for i:=20 to 40 do s:=s+i*i*i; writeln('Сумма всех кубов от 20 до 40 = ',s); end.

Answer 1

DIM i AS INTEGER, s AS LONG
FOR i = 20 TO 40
    s = s + i ^ 3
NEXT
PRINT "Сумма всех кубов от 20 до 40 = ";s

Answer 2

Для перевода данного кода на язык qBasic, нужно учесть некоторые отличия синтаксиса. Вот эквивалентный код на qBasic:

qBasicCopy code
DIM i AS INTEGER
DIM s AS LONG

FOR i = 20 TO 40
    s = s + i * i * i
NEXT i

PRINT "Сумма всех кубов от 20 до 40 = "; s

Обратите внимание, что в qBasic не требуется ключевое слово "var" для объявления переменных, вместо этого используется "DIM". Кроме того, инструкция вывода на экран осуществляется через "PRINT", а не "writeln" как в Pascal.