四則演算の剰余

注意

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

コード

                    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