Anfängerproblem ->"Multiples of 3 and 5" ,komme nicht weiter

Für Fragen von Einsteigern und Programmieranfängern...
Antworten
PaLegba
Beiträge: 2
Registriert: So 2. Mai 2021, 12:04

Anfängerproblem ->"Multiples of 3 and 5" ,komme nicht weiter

Beitrag von PaLegba »

Eigenltich sollte am ende die Summe aller durch 3 oder 5 teilbaren Zahlen(hier bis 10) rauskommen aber leider funktioniert es nicht

procedure TForm1.Button1Click(Sender: TObject);
var
itest,iges:integer;

begin
iges:=0;
itest:=3;
begin
while itest<10 do
begin
if (itest mod 3 = 0) or (itest mod 5=0) then
begin
iges:=iges+itest;
end
else
inc(itest);
end;
Label1.Caption:=IntToStr(iges);
end;
end;
end.

ok hab inc(itest) an einer stelle vergessen klappt jetzt, weiß aber nicht wie oder ob ich diesen Beitrag löschen soll.
Zuletzt geändert von PaLegba am So 2. Mai 2021, 12:22, insgesamt 1-mal geändert.

Benutzeravatar
theo
Beiträge: 8654
Registriert: Mo 11. Sep 2006, 19:01

Re: Anfängerproblem ->"Multiples of 3 and 5" ,komme nicht weiter

Beitrag von theo »

Du musst "itest" in jedem Fall inkrementieren.
Also "else" wegmachen.

PaLegba
Beiträge: 2
Registriert: So 2. Mai 2021, 12:04

Re: Anfängerproblem ->"Multiples of 3 and 5" ,komme nicht weiter

Beitrag von PaLegba »

jjo oder so danke ^^

Antworten