Converted repeat .. until .. -> do .. while .. od

This commit is contained in:
Dmitry Boulytchev 2021-01-31 19:27:00 +03:00
parent 297139c72a
commit 919cda5556
7 changed files with 17 additions and 18 deletions

View file

@ -1,6 +1,6 @@
local n = read ();
repeat
do
if n == 1 then write (0)
elif n == 2 then write (1)
@ -13,4 +13,4 @@ elif n == 4 then write (3)
n := n - 1
until (n == 0)
while n != 0 od