Cita:
Empezado por egostar
Pues eso mismo y como dice roman, para que tanto brinco estando el piso tan parejo. 
Salud OS |
Eso lo sabemos amigo, pero si recuerdas a tsue le pidieron que lo realice implementando el ciclo while. Por ello va mi comentario: es al vicio ir contando, si inicialmente de partida ya sabemos cuantos elementos hay desde uno hacia otro con una simple resta.
Calculo que el objetivo del profesor de tsue es practicar el uso de ciclos, y le pidió que calcule promedios.
¿Tanto embrollo hicimos por esto?
Código Delphi
[-]function Promedio(Inicial, Final: integer): double;
var suma, Ini: integer;
begin
suma: integer;
Ini: inicial;
while Ini <= final do
begin
suma := suma + Ini;
inc(Ini);
end;
result := suma / (Final - Inicial + 1);
end;
Saludos,