um ne 3. möglichkeit zu präsentieren, die kk (komplizierter und kürzer
) is:
Delphi-Quellcode:
function EinsBisHundert: integer;
var
i: integer;
begin
result := 1;
for i := 2 to 100 do
inc(result, (ord(not odd(i)) * 2 - 1) * i); //Das lange dings vor dem i gibt entweder +1 oder -1, also entweder dazu- oder wegzählen
end;
Ich mag kurze schleifen und wenig ifs