program faktorial;
uses wincrt;
var
i,n,f:integer;
begin
write('masukkan bilangan yang ingin difaktorialkan = ');
uses wincrt;
var
i,n,f:integer;
begin
write('masukkan bilangan yang ingin difaktorialkan = ');
readln(n);
f:=1;
while i<n do
begin i:=i+1;
f:=f*i;
end;
write(n,'! = ',f);
end.
f:=1;
while i<n do
begin i:=i+1;
f:=f*i;
end;
write(n,'! = ',f);
end.
Output yang dihasilkan adalah sebagai berikut.
Tidak ada komentar:
Posting Komentar
Kritik, saran atau komentar silakan tulis disini. Terima kasih ^_^