Примеры программ на языке QBASIC

Разложение числа на простые множители

REM Разложение числа на простые множители
CLS
K& = 2: J% = 0
INPUT "Введите целое число: ", M&: M1& = M& / 2
PRINT M&; "=";
M1:
  IF M& MOD K& = 0 THEN
     J = 1: M& = M& / K&: PRINT K&;
     IF M& <> 1 THEN PRINT "*";
  ELSE K& = K& + 1
  END IF
  IF K& <= M1& THEN GOTO M1
  IF J = 0 THEN PRINT " простое число"
END