Компилятор и вм милана
This commit is contained in:
14
lab4/cmilan/test/power.mil
Normal file
14
lab4/cmilan/test/power.mil
Normal file
@@ -0,0 +1,14 @@
|
||||
BEGIN
|
||||
N := READ;
|
||||
P := READ;
|
||||
|
||||
S := 1;
|
||||
|
||||
WHILE P > 0 DO
|
||||
S := S * N;
|
||||
P := P - 1
|
||||
OD;
|
||||
|
||||
WRITE(S)
|
||||
END
|
||||
|
||||
Reference in New Issue
Block a user