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 :Sahli Fadli Npm : 12110666

Selamat Belajar Pemograman