Reikia pagalbos su pascaliu

Yra problema, stengiuosi mokintis su http://projecteuler.net/ bet vis neiseina 1 pratimo isspresti:

If we list all the natural numbers below 10 that are multiples of 3 or 5, we get 3, 5, 6 and 9. The sum of these multiples is 23.

Find the sum of all the multiples of 3 or 5 below 1000.

Cia mano kodas:

Program Untitled;

var

suma, x, a, b, c, i :integer;

begin

x:=3;

a:=5;

suma:=0;

for i := 1 to 500 do

begin

b:=x*i;

if b<1000 then

suma:=suma+b;

end;

for i:=1 to 500 do

begin

c:=a*i;

if c<1000 then

suma:=suma+c;

end;

writeln(suma);

end.

Ganu atsakyma 266333, bet kazkodel jis netinka, gal kas matote kokia klaidele cia?

Nesupratau tų ciklų nuo 1 iki 500 prasmės. Čia pilnai užtenka vieno ciklo :)

Program Untitled;

var

suma, x, a, b, c, i :integer;

begin

x:=3;

a:=5;

suma:=0;

for i := 1 to 500 do

begin

b:=x*i;

if b<1000 then

suma:=suma+b;

c:=a*i;

if c<1000 then

suma:=suma+c;

end;

writeln(suma);

end.

Nu sudejau i viena cikla, bet atsakymas taspats.

Aš ir tokį pat atsakymą gaunu..

Nesuprantu, gal užduoties nesupratot? :)

Jei surašome visus natūraliuosius numerius, mažesnius už 10, kurie yra 3 ar 5 kartotiniai, gauname 3, 5, 6, 9. Šių kartotinių suma yra 23.

 

Raskite sumą visų 3 ar 5 kartotinių, mažesnių už 1000, sumą.

Nesuprantu, gal užduoties nesupratot? :)

 

Nezinau, lygtais taip ir padariau:

3 dauginu is 1,2,3,4,5 (iki 1000).... ir visus susumuoju, taip ir gaunasi kartotiniai... Tiesiog, kad atsakymas neatitinka.

Nezinau, lygtais taip ir padariau:

3 dauginu is 1,2,3,4,5 (iki 1000).... ir visus susumuoju, taip ir gaunasi kartotiniai... Tiesiog, kad atsakymas neatitinka.

Bet jei 3*1000, tai gaunasi 3000, kas yra daugiau už 1000 :) Čia turi būt jau kartotiniai mažesni už 1000, t.y.:

3, 5, 6, 9, ..., 1000 [PABAIGA]

BET 15 bus ir 3, ir 5 kartotinis, jį sumuoti du kartus bus klaida (nes liepia sumuoti skaičius, kurie yra 3 ARBA 5 kartotiniai, o ne „sudėkite 3 kartotinius, o tada dar ir 5 kartotinius). Kaip sakiau, čia turėtų išvis būti tik vienas ciklas :)

Bet jei 3*1000, tai gaunasi 3000, kas yra daugiau už 1000 :) Čia turi būt jau kartotiniai mažesni už 1000, t.y.:

3, 5, 6, 9, ..., 1000 [PABAIGA]

 

BET 15 bus ir 3, ir 5 kartotinis, jį sumuoti du kartus bus klaida (nes liepia sumuoti skaičius, kurie yra 3 ARBA 5 kartotiniai, o ne „sudėkite 3 kartotinius, o tada dar ir 5 kartotinius). Kaip sakiau, čia turėtų išvis būti tik vienas ciklas :)

Ai, dekui, pas mane ir yra iki 1000, bet klaida, kap saki ir bus su 15 ir kitais panasiais skaiciais.

Dekui.