Crie tabelas de adição e multiplicação 

Com o Inactive é mais fácil do que nunca criar tabelas de valores.

Uma tabela de adição para os números de 1 a 7.

In[1]:=

X (plus = Table[ Inactive[Plus][a, b] == a + b, {a, 7}, {b, 7}]) // TableForm

Out[1]//TableForm=

Uma tabela de multiplicação para os números de 1 a 7.

In[2]:=

X (times = Table[ Inactive[Times][a, b] == a b, {a, 7}, {b, 7}]) // TableForm

Out[2]//TableForm=

Crie uma tabela agradavelmente formatada.

mostre o input completo de Wolfram Languageoculte o input

In[3]:=

X Grid[Join[{{Item[Style["Addition Table", FontSize -> 18], Alignment -> Left, Background -> GrayLevel[.9]], SpanFromLeft, SpanFromLeft, SpanFromLeft, SpanFromLeft}}, plus, {{Item[Style["Multiplication Table", FontSize -> 18], Alignment -> Left, Background -> GrayLevel[.9]], SpanFromLeft, SpanFromLeft, SpanFromLeft, SpanFromLeft}}, times], Dividers -> All, ItemSize -> {Automatic, 1.6}] // TraditionalForm

Out[3]//TraditionalForm=