While + Counter

Pak Dengklek memiliki banyak baris berisi bilangan-bilangan. Anda diminta untuk menghitung jumlah dari bilangan-bilangan tersebut.

Format Masukan

Banyak baris, antara 1 sampai 100 baris, yang masing-masing berisi sebuah bilangan bulat antara 1 sampai 100.

Format Keluaran

Sebuah baris berisi jumlah dari bilangan-bilangan pada masukan.

Contoh Masukan

1 
2 
3

Contoh Keluaran

6

Petunjuk

Anda membutuhkan dua buah variabel bertipe integer/longint. Satu untuk menyimpan bilangan yang sedang dibaca, misalkan namanya bil. Satu lagi untuk menyimpan jumlah bilangan yang dibaca, misalkan namanya jumlah. Jadi deklarasinya adalah

var
    bil: integer;
    jumlah: integer;

Karena selama pembacaan jumlah digunakan untuk mencatat jumlah hingga bilangan terakhir dibaca, maka di awal program variabeljumlah harus diberi nilai awal (diinisialisasi) 0. Di dalam loop, nilai jumlah harus ditambahkan dengan nilai yang dibaca ke dalam variabel bil. Setelah loop selesai, di bagian bawah program nilai jumlah dicetak. Untuk itu badan program dapat dituliskan sebagai

jumlah := 0;
while not eof(input) do
begin
   readln(bil);
   jumlah := jumlah + bil;
end;
writeln(jumlah);

Jawabannya adalah :