四則演算の剰余

ホーム > Programing > Pascalコード集 > 四則演算の剰余

注意

このサイトの利用によって生じた損害については当方では責任を負いかねますのでご了承ください。

コード

program ArithMod(input, output);

procedure main;
var a, b : integer;
begin
	writeln('2つの数の商と剰余を計算します。');

	write('a = ');
	readln(a);

	write('b = ');
	readln(b);
	
	writeln(a, ' / ', b, ' = ', a div b, ' ... ', a mod b);
end;

begin
	main
end.
			

実行結果

$ ./CalcArithMod
2つの数の和を計算します。
a = 52
b = 23
52 / 23 = 2 ... 6
			

作成日:2016年9月25日、最終更新日: