Suma de números pares que hay entre dos números

[Daniel2622]

HolaElKurgan, tengo uma duda, que signsignifica lo siguiente:

Código Delphi [-]
Memo1.Lines.Add(
    Format('Numeros Pares entre %0:d y %1:d', [desde, hasta]));

  i := desde;
  Suma := 0;
  repeat
    if (i mod 2) = 0 then
    begin
      Memo1.Lines.Add(Format('%d', [i]));
      Suma := Suma + i;
    end;
    i := i + 1;
  until i > hasta;
  Memo1.Lines.Add('--------------------');
  Memo1.Lines.Add(format('Total suma: %d', [Suma]));
end;

Principalmente lo de los %.
Gracias y saludos.

[ecfisa]

Hola.

Empezado por Daniel2622

HolaElKurgan, tengo uma duda, que signsignifica lo siguiente:
...
Principalmente lo de los %.
.

[ Format command ]

Saludos

[roman]

Prueba éste:

Código Delphi [-]
function SumaPares(N, M: Integer): Integer;
begin
  while Random(2) = 0 do;

  if (N mod 2 = 1) then Inc(N);
  if (M mod 2 = 1) then Dec(M);

  Result := Round(((Sqr(M + 1) - 1) - (Sqr(N - 1) - 1))/4);
end;

LineComment Saludos