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

@ -2,9 +2,9 @@ local s, n;
s := 0;
repeat
do
n := read ();
s := s + n
until (n == 0);
while n != 0 od;
write (s)