[tsue]

Empezado por cHackAll

Código Delphi [-]var escuela, tarea, aplazo: Cardinal;
begin aplazo := 0; escuela := 10; // ReadLn(escuela);
tarea := 50; // ReadLn(tarea);
repeat Inc(aplazo, escuela);
Inc(escuela);
until escuela > tarea;
WriteLn(aplazo);

//...


Código Delphi [-] while escuela <= tarea do begin Inc(aplazo, escuela); Inc(escuela); end;


Edito; EPA, no me di cuenta que respondiste Caral, que cuentas? yo pase un ratico por acá a hacer mi homework si no "papá pega photo"

oye muchas gracias por la ayuda pero no puedo acer que me corra bien tengo esto como codigo

Código Delphi [-]
var ninicial, nfinal, aplazo: Cardinal;
procedure TForm1.Button1Click(Sender: TObject);
begin
 aplazo := 0;
 ninicial := 10; // ReadLn(escuela);
 nfinal := 50; // ReadLn(tarea);
 repeat Inc(aplazo, ninicial);
  Inc(ninicial);
 until ninicial > nfinal;
 Application.MessageBox(aplazo,'titulo') ;
//WriteLn(aplazo);

ha, porcierto me falto agregar que la media aritmetica es la suma de los numeros dividida entre la cantidad de numeros que hay (osea el promedio)
ha tmb para caral si voy ha acer lo ke me digiste con respecto a la ayuda lo ke pasa es k ando desesperado con esta tarea me puse a estudiar delphi para ver si asi podia comprender algo.