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.
Anfängerproblem ->"Multiples of 3 and 5" ,komme nicht weiter
Anfängerproblem ->"Multiples of 3 and 5" ,komme nicht weiter
Zuletzt geändert von PaLegba am So 2. Mai 2021, 12:22, insgesamt 1-mal geändert.
Re: Anfängerproblem ->"Multiples of 3 and 5" ,komme nicht weiter
Du musst "itest" in jedem Fall inkrementieren.
Also "else" wegmachen.
Also "else" wegmachen.
Re: Anfängerproblem ->"Multiples of 3 and 5" ,komme nicht weiter
jjo oder so danke ^^