Koliko sam ja skontao tebe,jeste to da program radi sve dok zbir kvadrata cifara ne postane jednocifren?
I da se svaki broj upisuje u datoteku,dok ne postane jednocifren?
Evo ti koda,ali dzaba ako ne kontaš šta pišem.Jebiga,bolje nauči da znaš,nego da imaš ocjenu...
Kod u Pascal-u,ne znam da li radiš u njemu,ali svejedno.
Kod:
program smorensaskolom;
function zb(n:string):longint;
var
i,sum,x,a:longint;
begin
sum:=0;
for i:=1 to length(n) do {sad izvlacim svaki broj i kvadriram ga}
begin
val(n[i],x,a); {ovo ti sluzi da pretvori odredjeni znak u broj}
sum:=sum+x*x; {znaci pretvara znak iz stringa n,u broj x}
end;
zb:=sum; {eto cuvas zbirove u promjenjivoj sum i kasnije samo dodijelis tu vrijednost ovoj funkciji}
end;
var
ulaz,izlaz:text;
l,i,x,br:longint;
s:string;
begin
assign(ulaz,'broj.in'); {assign ti sluzi da se povezes sa datotekom}
assign(izlaz,'broj.out');
reset(ulaz); {reset otvara datoteku}
rewrite (izlaz); {kako da ti kazem...naznacujes da ces pisati u ovoj datoteKi}
read(ulaz,x); {znaci ocitavas varijablu x iz datoteke ulaz}
str(x,s); {str ti sluzi da pretvoris broj u string}
l:=length(s);
br:=zb(s);
while l>1 do {radis sve dok ti ne dodje jednocifren broj}
begin
writeln (izlaz,br);
str(br,s);
l:=length(s);
br:=zb(s);
end;
close(ulaz); {close zatvara datoteke}
close(izlaz);
end.
Edit:
Jebiga,sad viđoh da radiš u C-u.Ajd' ljudi uradite mu...