|
bueno, yo lo veo así, espero que te sirva.
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
con,sum: integer;
begin
con:= 9;
sum:= 0;
while con < 50 do
begin
inc(con);
sum:= sum + con;
end;
ShowMessage(FloatToStr(sum / 40));
end;
[/delphi] |