Знайти суму чисел введеного чотирьохзначного числа та їх середнє арифметичнеНаприклад 2013 = 2+0+1+3 =6Середнє арифметичне 6/4=1,5

Question

Знайти суму чисел введеного чотирьохзначного числа та їх середнє арифметичнеНаприклад 2013 = 2+0+1+3 =6Середнє арифметичне 6/4=1,5

Знайти суму чисел введеного чотирьохзначного числа та їх середнє арифметичне Наприклад 2013 = 2+0+1+3 =6Середнє арифметичне 6/4=1,5

Гость

Ответ(ы) на вопрос:

Accepted Answer

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('Середнє арифметичне : ',x/k:0:1); end.