Yuk! Belajar Konsep Pemrograman Di Mesran.Blogspot.Com

Quiz Online Soal 1 Coba Selesaikan Kasus Berikut Ini

Coba Selesaikan Kasus Berikut Ini

Buatlah program untuk menampilkan hasil berikut dengan menggunakan perulangan : 

Input Nilai : 5

Hasil : 1 * 2 * 3 * 4 * 5 = 120

Jawab: 

----------------------------------------------------------------------------------------------------------------------


uses crt;
var
nilai : byte;
i,j : byte;
hasil : integer;
k: char;
begin
clrscr;
write('Input Nilai:');readln(nilai);
for i:= 1 to 5 do
hasil:=1*2*3*4*5;
k:='=';
write('Hasil:1*2*3*4*5',k,hasil );
readln;
end.





hasil akhir



Sekian dan Trima kasih.