Дано натуральное число n (n<99999). Найти среднеквадратичное значение цифр этого числа....

Question

Дано натуральное число n (n<99999). Найти среднеквадратичное значение цифр этого числа. <br>Нужна программа в паскале

Answer 1

var
  x: real;
  y: integer;
  i, k: byte;

begin
  readln(y);
  k := length(inttostr(y));
  x := 0;
  foreach o: char in inttostr(y) do
    x += sqr(strtofloat(o));
  x *= 1 / k;
  writeln(sqrt(x));
end.