Um LESARION optimal zu gestalten und fortlaufend zu verbessern verwenden wir zur Auswertung Cookies. Mehr Informationen über Cookies findest du in unseren Datenschutzbestimmungen. Wenn du LESARION nutzst erklärst du dich mit der Verwendung von Cookies einverstanden.
Messages werden geladen
Postfach öffnen

Turbo-pascal *haare rausreiß'

CrazySarah
HiddenNickname
offline
04.11.2006 13:50
0
huhu!
ich verzweifel mal wieder an meinen informatik hausaufgaben..
hat jemand ne ahnung von turbo pascal?

also ich soll n program schreiben, was alle echten teiler ausgibt, bis 32000...men prob:
ich hab ahnung von nix..bisher läuft natürlich nix und alles was ich hab is das hier..:

Line 1 Col 1 Insert Indent C:ECHTE.PAS
PROGRAM echteTeiler;
VAR i, t, summeT : INTEGER;

BEGIN
clrscr;
writeln;
writeln(' *** Dieses Programm gibt alle echten Teiler bis 32.000 aus *** '
writeln;
i:=0;
t:=0;
REPEAT
t:=t+1;
UNTIL
t=i;
FOR i:=1 TO i=32000 DO;
BEGIN
i:=i/t MOD
IF i:=summeT;
THEN
write(i);

nya, ich weiß, des is müll..

ich bemüh mich sogra um nachhilfe, aber iwie scheints niemanden zu geben, der da nachhilfe gibt...
Fie-s
HiddenNickname
mobile
04.11.2006 14:52
0
melden