Знайти суму чисел введеного чотирьохзначного числа та їх середнє арифметичнеНаприклад 2013 = 2+0+1+3 =6Середнє арифметичне 6/4=1
<span>Знайти суму чисел введеного чотирьохзначного числа та їх середнє арифметичне Наприклад</span> 2013 = 2+0+1+3 =6<span>Середнє арифметичне 6/4=1,5</span>
Var i,n,m,x,k:Integer; s:String; Begin Read(n); While (n>0) do begin m:=(n mod 10); n:=(n div 10); x:=x+m; k:=k+1; end; Writeln('Сума : ',x); Writeln('<span>Середнє арифметичне </span> : ',x/k:0:1); end.