Code:
U nizu 19886138... svaka cifra pocev od pete, jednaka je poslednjoj cifri
od sume cetiri prethodne cifre. Napisati program
kojim se odredjuje od koje cifre ce se ponovo naici na pocetnu kombinaciju 1988?
U nizu 19886138... svaka cifra pocev od pete, jednaka je poslednjoj cifri
od sume cetiri prethodne cifre. Napisati program
kojim se odredjuje od koje cifre ce se ponovo naici na pocetnu kombinaciju 1988?
Pretpostavljam, inace, da je zadatak bio 1988. godine na nekom takmicenju:)
E, sad da se ne bi mucili, evo programa koji to resava
Code:
program cudan_niz(input, output);
const
pattern=1988;
var
broj, cifra:integer;
{na osnovu 4-cifrenog broja trazi sledecu cifru}
{primer: novacifra(1988)=6}
function novacifra(broj:integer):integer;
begin
novacifra:=0;
repeat
novacifra:=novacifra+broj mod 10;
broj:=broj div 10;
until broj=0;
novacifra:=novacifra mod 10;
end;
begin
cifra:=0;
broj:=pattern;
repeat
{pravimo novi 4-cifreni broj}
{od 1988 nastaje 9886}
broj:=(broj mod 1000)*10+novacifra(broj);
cifra:=cifra+1;
until broj=pattern;
writeln('Od ',cifra,'. cifre');
readln;
end.
program cudan_niz(input, output);
const
pattern=1988;
var
broj, cifra:integer;
{na osnovu 4-cifrenog broja trazi sledecu cifru}
{primer: novacifra(1988)=6}
function novacifra(broj:integer):integer;
begin
novacifra:=0;
repeat
novacifra:=novacifra+broj mod 10;
broj:=broj div 10;
until broj=0;
novacifra:=novacifra mod 10;
end;
begin
cifra:=0;
broj:=pattern;
repeat
{pravimo novi 4-cifreni broj}
{od 1988 nastaje 9886}
broj:=(broj mod 1000)*10+novacifra(broj);
cifra:=cifra+1;
until broj=pattern;
writeln('Od ',cifra,'. cifre');
readln;
end.
Verovatno znate output po imenu teme:) Ali sad meni djavo ne da mira, moram ja da se igram sa konstantnom pattern za 2004. godinu, i zacudih se rezultatom! Napravih ja tu jednu petlju gde vrti pattern, kad se jos vise zacudih!!! Provalio sam semu kako izlazi rezultat, ali ne razumem zasto?
Evo, nisam bas sve hteo da vam otkrijem, igrajte se i vi, prepravite program, provalite semu kako rezultat izlazi (ovo je lako, castim pice) i objasnite mi zasto je bas tako (ovo je tesko, bar meni). Sad sam se nalozio, i neki linkovi o ovome ne bi bili losi takodje.