Целые числа в BASIC

Как я могу использовать Liberty BASIC для поиска кратных чисел в диапазоне чисел? Например, между 1 и 10 есть три кратных числа 3: 3, 6, & 9. Как бы вы написали код для этого? Это то, что я получил до сих пор:Целые числа в BASIC

I = 1 
WHILE I <= 10 

A = I/3 
IF A = ... 
THEN 
PRINT I 
END IF 

I = I + 1 
WEND 
END

источник

2015-10-18 Anonymous

Я теперь добавил строку 'IF A - INT (A) = 0 затем', который исправляет проблему, но мне интересно, есть ли определенная команда, которая будет выполнять эту работу, или более простой способ сделать то же самое? –

У Liberty Basic нет оператора MOD для вычисления остатков? 'I MOD 3 = 0' для любого кратного 3; то есть деление любого кратного 3 на 3 не даст никакого остатка. Например, 96/3 = 32, а 96 MOD 3 = 0. Аналогично, 95/3 = 8.666667 и 95 MOD 3 = 2. –

Удивительно, да, я просто нашел это, это очень полезно. Спасибо за Ваш ответ :) –

Резюме, чтобы сделать этот вопрос ответил:

I = 1 
WHILE I <= 10 
    IF A MOD 3 = 0 THEN 
    PRINT I 
    END IF 
    I = I + 1 
WEND

источник

2015-11-30 15:52:05

Целые числа в BASIC

ответ

Смежные вопросы