Компилятор и вм милана
This commit is contained in:
17
lab4/cmilan/test/fib.mil
Normal file
17
lab4/cmilan/test/fib.mil
Normal file
@@ -0,0 +1,17 @@
|
||||
/* <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> N-<2D><> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> */
|
||||
|
||||
BEGIN
|
||||
a := 1;
|
||||
b := 1;
|
||||
n := READ;
|
||||
|
||||
WHILE n > 1 DO
|
||||
t := a;
|
||||
a := b;
|
||||
b := b + t;
|
||||
n := n - 1
|
||||
OD;
|
||||
|
||||
WRITE(a)
|
||||
END
|
||||
|
||||
Reference in New Issue
Block a user