Yuk! Belajar Konsep Pemrograman Di Mesran.Blogspot.Com

Selesaikan kasus Berikut :
Buat lah pemograman dengan menampilkan hasik berikut :
Inputkan Nilai : 5
Hasil : 1*2*3*4*5
Menggunakan Program Pascal


Uses crt;
Var i,x,n:integer;
Begin
Write('INPUTKAN NILAI : ');Readln(n);
For i:= 1 to n do
Begin
x:=(x*i);
if (i=1) then
write(i)
else
write('*',i);
end;
Writeln(' = ',x);
end.
Screen Shot : 

Demikian lah postingan saya  Nama : Rahmat Tullo Npm : 12110801

Selamat Belajar Pemograman