Divizilitatea

[•cristy]

am cautat pe net...sa vad criterii de divizibilitate, si am gasit urmatoarele kestii...
Un numar este divizibil cu 7 daca imdeplineste urmatoarele conditi:

nr=abcdefghij

j*1+i*3+h*2-g*1-f*3-e*2+d*1c+b*3+a*2 e divizibil cu 7

ceea ce e mult mai usor de calculat, este doar o jonglare cu 3 numerele: 1,3,2, dupa care -1,-3,-2 si tot asa....

pentru divizibilitatea cu 13, se face acelasi lucru, se iau cifrele de la capat si se inmultesc cu 1,3,4,-1,-3,-4,1,3,4.... si tot asa...

pentru divizibilitatea cu 17 insa am aflat doar ca numarul de cifre cu care se jongleaza este de 8, nu le stie cineva?.....

[ditzone]

Pai daca scrii numaru ca j+10*i+100*h+... si face modulo 7 toata chestia o sa iti dai seama de ce sunt necesare conditiile alea...

[•skydome]

iei numarul intr-un string s
for i:=1 to length(s) do
begin
val(s,x,er);
a:=(a*10+(x)) mod 7(sau cu ce numar vrei sa testezi divizibilitatea) ;
end;
writeln(a); (daca ii 0 este divizibil daca nu a= restu impartirii)

pentru 7 stiu sigur ca merge si cred ca merge pentru orice numar .. am incercat si cu altele dar pentru teste mici si e ok. daca nu merge spuneti-mi si mie