Дано натуральное число n (n меньше 99999). Найти среднеквадратичное значение цифр этого числа. Нужна программа в паскале
Дано натуральное число n (n<99999). Найти среднеквадратичное значение цифр этого числа.
Нужна программа в паскале
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы