Eli Martines
-
Total de itens
1 -
Registro em
-
Última visita
Tudo que Eli Martines postou
-
Ola...... Sou estudante de tecnologia da informação. Não sei muito, mas fiz teste de mesa e funcionou da seguinte forma: var N,I, R : Integer; begin R:=1; N := Strtoint(Edit1.Text); for I := 1 to N do R := R + I; edit2.Text:=Inttostr( R ); end; att Eli Martines