Дано натуральное число n (n<99999). Найти среднеквадратичное значение цифр этого числа.
10-11 класс
|
Нужна программа в паскале
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.
Другие вопросы из категории
Читайте также
Программа получает на вход натуральное число , содержащее не более 100 цифр.
Программа должна вывести то же число , с точками между некоторыми цифрами этого числа.
Примеры входных и выходных данных
Ввод 1000 1.000
Вывод 12345678 12.345.678
произведение цифр этого числа.
Необходимо решение на языке Паскаль. Заранее спасибо!
2.дано натурально число N вычислить куб суммы этого числа
0,если их несколько то номер крайней правой.
2) Дано натуральное число. Определить сумму m его последних цифр
3)Дано натуральное число. определить его максимальную цифру.
4) дано предложение. заменить в нем все вхождения под строку str1 на подстроку str2
5) последовательность чисел Фибоначчи образуется так: первый и второй член последовательности равен 1, каждый следующий равен сумме двух предыдущих(1,1,2,3,5,,8,12..) Дано натуральное число n>=3 : а) найти k-й член последовательности б)получить первые n членов последовательности в)для заданного n определить верно ли,что сумма первых n членов есть четное число