Ввести число «Х» с клавиатуры, напечатать все делители числа «Х» — QBasic(Бейсик) — Справочник разработчика. Приемная комиссия

INPUT "vvedite chislo ", x
FOR i = 2 TO x
    IF x MOD i = 0 THEN PRINT i;
NEXT

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

Ввести число «Х» с клавиатуры, напечатать все делители числа «Х» — QBasic(Бейсик)