program faktorial;
uses crt;
var
a,b : integer;
c : int64;
begin
clrscr;
writeln('Program Faktorial by efelin');
writeln;
write('Masukkan angka = ');
readln(a);
c:=1;
if a=0 then
write(c)
else
begin
for b:=a downto 1 do
c:=b*c;
write('Hasil faktorial = ',c);
end;
readln;
end.
Tuesday 19 November 2013
program mencari faktorial
Subscribe to:
Post Comments (Atom)
0 comments:
Post a Comment