TCL简单题目计算1~100中的奇和输出。

定义变量

I，j:真实；

开始

对于i:=1到100 do

开始

if(I/2)& lt；& gttrunc(I/r)；

writeln(一)；

结束

结束

{帕斯卡}