program faktorial;
uses wincrt;
var
n,i,a:longint;
begin
write('input:');readln(n);
write(n,'!=');
a:=1;
begin
for i:=1 to n do
begin
a:=a*i;
end;
end;
for i:=n downto 2 do
write(i,'x');
write(1);
if n>1 then
write('=',a);
end.
1 comments:
Alangkah baiknya untuk menampilkan visualisasi gambar agar lebih jelas :D
Post a Comment