Pemrograman Pascal Pembagian (Div) dan Sisa Hasil Bagi (Mod) Menggunakan While Do

Pemrograman Pascal Menentukan Pembagian (Div) dan Sisa Hasil Bagi (Mod) Menggunakan (Perulangan While Do)

Buatlah program dengan menggunakan bahasa pemrograman pascal untuk menginput 1 buah bilangan bulat positif dan menampilkan hasil bagi dan sisa bagi bilangan tersebut dengan angka 1 sampai 10 (gunakan perulangan while-do)! 

Contoh Output yang diharapkan :

Input Sebuah angka : 14

  ==================================== 

 14 : 1 = 14 sisa 0 

 14 : 2 = 7 sisa 0 

 14 : 3 = 4 sisa 2 

 14 : 4 = 3 sisa 2 

 14 : 5 = 2 sisa 4 

 14 : 6 = 2 sisa 2 

 14 : 7 = 2 sisa 0 

 14 : 8 = 1 sisa 6 

 14 : 9 = 1 sisa 5 

 14 : 10 = 1 sisa 4 

Contoh Program ;

Program soal_uas1;

uses crt;

var

        a,b,hasilbagi,sisabagi: integer;

begin

        clrscr;

        write('Input sebuah angka : ');

        readln(a);

        writeln('===============================');

        b := 0;

        while (b <= 9) do

        begin

                b:= b+1;

                hasilbagi:= a div b;

                sisabagi:= a mod b;

                writeln(a,' : ',b,' = ',hasilbagi,' sisa ',sisabagi);

                end;

        readln;

end.

Hasil Output: