Quersumme Turbo Pascal

aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Dieses Turbo Pascal Programm ermöglicht es die Quersumme einer beliebigen Zahl zu ermitteln.

Programm

var x,e:longint;
    y,i:real;

begin
readln(x);
y:=x;

repeat
y:=y/10;
i:=frac(y);
y:=y-i;
e:=e+round(i*10);

until y=0;
write('Die Quersumme von ',x,' ist : ',e);
readln;

end.

---

--Gastarbeiter 20:21, 20. Mär 2006 (CET)

---