Знайти суму чисел введеного чотирьохзначного числа та їх середнє арифметичнеНаприклад...

Question

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

Answer 1

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.