Дано целое число n. нужно составить программу для определения, делится ли данное число на целое число m. составить программу плз 9 класс , язык паскаль

Var N,M:integer;
Begin
Write('N = ');ReadLn(N);
Write('M = ');ReadLn(M);
if N mod M = 0 then WriteLn(N,' кратно ',M)
else WriteLn(N,' не кратно ',M)
End.

def to_bin(n):

return str(bin(n))[2:len(str(bin(n)))]

def to_hex(n):

return str(hex(n))[2:len(str(hex(n)))]

def main():

n = int(input())

print('Binary version of {} - {}'.format(n, to_bin(n)))

print('Hex version of {} - {}'.format(n, to_hex(n)))

if __name__ == '__main__':

main()

Объяснение:

P.S Внутри функций перевода в системы счисления такая каша из за того, что изначально Python при переводе возвращает число с неким кодом системы счисления. То есть при переводе, например, числа 56, в двоичной версии он выдаст 0b111000, а в шестнадцатиричную - 0x38, что бы убрать код системы счисления, функции возвращают не просто интерпретацию числа в нужной системе, а строковый срез без первых двух символов.

#include <iostream>
using namespace std;
int main() {
    int N;
    cout << "Vvedite chislo = "; cin >> N;
    if ((N % 3) == 0) cout << "Kratno 3" << endl;
    else cout << "Ne kratno 3" << endl;
    if ((N % 5) == 0) cout << "Kratno 5" << endl;
    else cout << "Ne kratno 5" << endl;
    if ((N % 7) == 0) cout << "Kratno 7" << endl;
    else cout << "Ne kratno 7" << endl;
    system("pause");
    return 0;
}

Пример:
Vvedite chislo = 70
Ne kratno 3
Kratno 5
Kratno 7