整数と分数の計算
1  偶数か奇数か
2  ３で割り切れるか
3  ４桁の数から千百十一の位の数を抜き出す
4  1〜9999 の数を与えて何桁の数か判定する
5  整数の各位の数の和が３で割り切れるか
6  階乗
7  順列  組合せ
8  ユークリッド互除法
9  素数か
10   分数

1  偶数か奇数か

n=10;
OddQ[n]
EvenQ[n]
If[Mod[n,2]==0,"偶数","奇数"]

2  ３で割り切れるか

n=102;
Print[n," は",If[Mod[n,3]==0,"３で割り切れる","３で割り切れない"]]

3  ４桁の数から千百十一の位の数を抜き出す

n=1234;
a=Floor[n/1000];
b=Floor[(n-1000 a)/100];
c=Floor[(n-1000 a -100 b)/10];
d=n-1000 a-100 b -10 c;
Print[a,"  ",b,"  ",c,"  ",d]

n=1234;
d=Mod[n,10];
c=Mod[n-d,100]/10;
b=Mod[n-10 c-d,1000]/100;
a=(n-100 b -10 c-d)/1000;
Print[a,"  ",b,"  ",c,"  ",d]

n=1234;
IntegerDigits[n]

4  1〜9999 の数を与えて何桁の数か判定する

n=1234;
Length[IntegerDigits[n]]

5  整数の各位の数の和が３で割り切れるか

n=123456789;
t=IntegerDigits[n];
Mod[Sum[t[[k]],{k,1,Length[t]}],3]

6  階乗

For[n=1,n<=20,n++,
  Print[n,"! =  ",n!]]

7  順列  組合せ

\(n = 10; 
r = 5; 

    Print["順列 = ", \(n!\)\/\(\((n - r)\)!\)]\)Print["\:7d44\:5408\:305b = ",  Binomial[n, r]]

Comb = Array[c, {10, 10}];
For[n = 1, 
        n ≤ 10, n++, 
For[r = 1, 
          r ≤ n, r++, 
c[n, r] = 
            Binomial[n, r]]];
For[n = 1, 
        n ≤ 10, n++, 
For[r = n + 1, 
          r ≤ 
            10, r++, 
  c[n, 
              r] = "***"]];
Comb // MatrixForm

8  ユークリッド互除法

m=12345;
n=123;
While[n!=0,w=Mod[m,n];m=n; n=w]
m
GCD[m,n]

9  素数か

n=1234567;
PrimeQ[n]

FactorInteger[n]

10   分数

1/2+1/3