Hm, znam da nisam neki matematicar ali ipak mi se cini da je
*/ 6+5+7+8+9+4+3+0+5+6/* = 53 a ne 55
Citat:
XXXL:Ne smijem koristiti funkcije sa stringovima...(Jer to jos moj prijatelj nije ucio, pa ne smije ni pokazati)...
Lol, neka kaze da je napredan...
Code:
program cifraZAD;
uses crt;
var cifra:string;
x,suma,br,gr:integer;
begin
clrscr;
writeln('Upisite cifru:');
readln(cifra);
suma:=0;
for x:=1 to length(cifra) do
begin
val(cifra[x],br,gr);
suma:=suma+br;
end;
writeln('Rezultat:',suma);
readln;
end.
[Ovu poruku je menjao Passwd dana 20.12.2005. u 20:57 GMT+1]