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

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

Задать свой вопрос
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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт