Определить делится ли число на 7
на языке basic

Признак 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;

}