03/04/14 22:25.net
プログラミングの為の数学と算数
URLﾘﾝｸ(pc2.2ch.net)
＞[607]デフォルトの名無しさん04/02 11:12
＞Ｎ＋Ｎ＝ＮＮ
[607]の意図はよくわからないんだが
1+1=11
2+2=22
みたいなものがあるか、という問題と解釈し
10進数以外ならあるやも、と作ったプログラム。
2進、3進、4進．．．16進までやってみたけどないね。
with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;
procedure nn is
begin
for i in 2..16 loop
for j in 1..i-1 loop
put(j, 6, i); -- jをi進数で表記
put(" + ");
put(j, 6, i);
put(" = ");
put(j + j, 6 ,i); -- j+jをi進数で表記
new_line;
end loop;
end loop;
end nn;