Einzelnen Beitrag anzeigen

PomBär

Registriert seit: 28. Sep 2003
Ort: MV
57 Beiträge
 
Delphi 6 Professional
 
#1

summe der ersten n zahlen berechnen

  Alt 29. Jan 2004, 18:32
moin leute
ich hab versucht die summe der von der tastatur stammenden zahl zu berechnen.
Delphi-Quellcode:
var summe,N, zahl:integer;
begin
  summe:=0;
  zahl:=0;
  readln(N);
  repeat
   zahl:= zahl+1;
   summe:= summe+zahl;
  until
  zahl>=N;
  writeln(N);
  readln;
end.
ich bekomme aber leider kein sinnfolles ergebnis.
könnt ihr mir bitte helfen?
Je weniger einer weiß, desto eher glaubt er jeden Scheiß.
  Mit Zitat antworten Zitat