Признак 1. число делится на 7 тогда и только тогда, когда утроенное число десятков, сложенное с числом единиц, делится на 7.
Признак 2. число делится на 7 тогда и только тогда, когда модуль алгебраической суммы чисел, образующих нечётные группы по три цифры (начиная с единиц) , взятых со знаком «+», и чётных со знаком «-» делится на 7.
По первому признаку гораздо проще сделать.
На Бейсике вообще нефиг делать:
d-десятки, e-единицы:
d=n\10
e=n mod 10
if (3d+n) mod 7 =0 then ...
ИЛИ ВоТ ТАК
C++:
#include <iostream>
int n;
int main() {
std::cout << "n=";
std::cin >> n;
std::cout << ( (div(n, 7).rem == 0) ? "делится" : "не делится" ) << '\n';
return 0;
}
