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.