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

@ -4,11 +4,11 @@ n := read ();
s := 1;
repeat
do
s := s * n;
n := n - 1
until (n == 0);
while n != 0 od;
write (s)