REM CLS Dim X as integer Dim A as integer INPUT "Ввод числа X ", X IF sin(X)>0.3 and cos(X)>0.3 THEN A=X^2 ELSE A=X^3 END IF PRINT "A ",A END
увы найти конкретно компилятор под квик бейсик не удалось и поскольку в разных бейсиках не шарю, то подсказать трудно Qbasic завелся на виртуалке на xp, код принял и отработал. Только одно но - русский текст не понимает, лучше писать транслитом или на англ
REM
CLS
Dim X as integer
Dim A as integer
INPUT "Ввод числа X ", X
IF sin(X)>0.3 and cos(X)>0.3 THEN
A=X^2
ELSE
A=X^3
END IF
PRINT "A ",A
END
увы найти конкретно компилятор под квик бейсик не удалось и поскольку в разных бейсиках не шарю, то подсказать трудно
Qbasic завелся на виртуалке на xp, код принял и отработал. Только одно но - русский текст не понимает, лучше писать транслитом или на англ