Program ciklp_6-

uses crt-

var i,n,k,s : longint-

b : integer-

begin

clrscr-

write(‘введите число — ‘)-readln(n)-

k:=1-

repeat

b:=trunc(n) mod 10-

s:=s+b-

n:=trunc(n)div 10-

k:=k+1-

until n&lt-1-

write(‘s=’,s)-

readln-

end.