mirror of
https://gitee.com/zlgopen/awtk.git
synced 2024-12-10 23:45:26 +08:00
14 lines
98 B
Forth
14 lines
98 B
Forth
|
a=0
|
||
|
b=0
|
||
|
|
||
|
while(a < 100) {
|
||
|
a=a+1
|
||
|
b=b+a
|
||
|
if(a > 20) {
|
||
|
break;
|
||
|
}
|
||
|
print(a, b)
|
||
|
}
|
||
|
print(b)
|
||
|
|