Nedavni sadržaj od anonimnystefy

2. Zadatak: var n,zbcif:integer; begin readln(n); zbcif:=0; while n>0 do begin zbcif:=zbcif+n mod 10; n:=n div 10; end; writeln(zbcif); end.