Program xxx; var n, s, k, c : integer; sa : real; begin write ('введите число n-'); readln (n); k:=0; s:=0; while n>0 do begin c:= n mod 10; s:=s+c; k:=k+1; n:=n div 10 end; write ('сумма цифр = ', s); write ('количество цифр =', k); sa:=s/k; write ('среднее арифметическое =', sa) end.
