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

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

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

Похожие записи/страницы:

Leave a Comment