Hasil
rogram faktorial;
uses wincrt;
var
i,N,jumlah :integer;
coba :char;
begin
coba :='y';
while coba ='y' do
begin
jumlah:=1;
write('inputkan suatu nilai : '); readln(N);
write('faktorial dari ',N,' adalah : ');
for i:=2 to N do
begin
jumlah:=jumlah*i;
end;
writeln(jumlah);
write('coba program lagi?[y/t]');readln(coba);
if coba ='t' then
coba:='t';
end;
readln;
end.
0 comments:
Post a Comment