RosettaCodeData/Task/Loops-Do-while/S-BASIC/loops-do-while.basic

15 lines
178 B
Plaintext

rem - return n mod m
function mod(n, m = integer) = integer
end = n - (n / m) * m
var i = integer
i = 0
repeat
begin
i = i + 1
print i;
end
until mod(i, 6) = 0
end