Skrip Program Pascal
program jum_bil;
uses wincrt;
var
i, jum,bil: integer;
begin
jum:=0; {inisialisasi}
for i:=1 to 5 do
begin
write(‘Masukkan Bilangan = ‘);readln(bil);
jum:=jum+bil;
end;
writeln(‘Jumlah Bilangan = ‘,jum);
end.
Output Program
Masukkan Bilangan = 12
Masukkan Bilangan = 12Masukkan Bilangan = 12
Masukkan Bilangan = 12
Masukkan Bilangan = 12
Jumlah Bilangan = 60
Postingan
0 komentar:
Posting Komentar
Silahkan tinggalkan komentar yang membangun blog ini: