Minibus Pariwisata

Sebuah acara wisata digunakan minibus kapasitas 7 penumpang per mobil. Apabila terjadi kelebihan penumpang (walaupun cuma 1), maka minibus yang digunakan ditambah 1. Tulis program untuk menghitung jumlah minibus yang diperlukan, bila jumlah pesertanya diINPUT.

Contoh Masukan dan Keluaran:

Jumlah Peserta	Jumlah Minibus
5	1
7	1
8	2

Jawab:

uses crt;

var

        jpeserta, jbus: integer;

begin

clrscr;

        writeln('Masukkan Jumlah Peserta: ');

        readln(jpeserta);

        if (jpeserta > 7) then

                jbus := jpeserta div 7;

                if (jpeserta mod 7 > 0) then

                        jbus := jbus + 1

        else

                jbus := 1;

                readln;

        writeln('Jumlah bus yang dibutuhkan adalah: ', jbus);

        readln;

end.