hw3: init
This commit is contained in:
11
hw3/fact.imp
Normal file
11
hw3/fact.imp
Normal file
@@ -0,0 +1,11 @@
|
||||
N := 2;
|
||||
F := 1;
|
||||
while N > 0 do
|
||||
X := N;
|
||||
Z := F;
|
||||
while X > 1 do
|
||||
F := Z + F;
|
||||
X := X - 1
|
||||
endwhile;
|
||||
N := N - 1
|
||||
endwhile
|
||||
Reference in New Issue
Block a user