Las preguntas simples de TCL calculan el resultado de la suma impar del 1 al 100.
Definir variables
I, j: true;
Inicio
Para i: =1 a 100
Inicio
if(I/2) lt; gttrunc(I/r);
writeln(一);
Fin
Fin
{Pascal}
I, j: true;
Inicio
Para i: =1 a 100
Inicio
if(I/2) lt; gttrunc(I/r);
writeln(一);
Fin
Fin
{Pascal}