Delphi Feststellen ob Zahl durch 3 Teilbar

Thema durchsuchen

Ansicht

Themen-Optionen

Feststellen ob Zahl durch 3 Teilbar

Ein Thema von frielix · begonnen am 31. Okt 2006 · letzter Beitrag vom 1. Nov 2006

Vorheriger Beitrag

Nächster Beitrag

frielix

Registriert seit: 31. Aug 2006
Ort: Dresden
7 Beiträge

Feststellen ob Zahl durch 3 Teilbar

31. Okt 2006, 17:04

So, mein Programm soll schauen ob die Variable durch 3 zu teilen geht, ansonsten sollen soviele Nullen vorn drangemacht werden bis es geht

Habe mir gedacht das das so hier geht:

markieren

Delphi-Quellcode:

			if not length(vK) mod 3 = 0 then

 begin

  repeat

   vk := '0' + vK;

  until length(vK) mod 3 = 0;

 end;

Aber irgendwie geht das, wenn nur noch ein Zeichen fehlt, bis es durch 3 teilbar wird. Also bei 2, 5, 8, 11, usw...
Aber wen vK nur ein (oder 4, 7, ...) Zeihen hat passiert gar nicht...

Waran liegt das??

MfG Felix