Uses wincrt;
Var n :integer;
Fak :integer;
k :integer;
Begin
readln(n);
if n=0 than
begin
fak:=1;
end
else
begin
fak:=1;
for k:=1 to n do
begin
fak:=fak*k;
end;
end;
write(fak);
end.
------------------------------------------------------
---------------------------------------------------------
<html> <title>Membuat program kalkulator sederhana menggunakan textbox
Tidak ada komentar:
Posting Komentar