паскаль. Дано натуральное число n. Найти среднеквадратичное значение цифр этого числа. Среднеквадратичное значение - величина, равная корню квадратному из суммы квадратов цифр.
Ответы на вопрос
Ответил hhh54
0
Program hhh54;
var n: longint;
x: real;
begin
x:=0;
read (n);
while n <> 0 do
begin
x:=x + sqr(n mod 10);
n:=n div 10;
end;
x:=sqrt(x);
write (x:0:3);
end.
var n: longint;
x: real;
begin
x:=0;
read (n);
while n <> 0 do
begin
x:=x + sqr(n mod 10);
n:=n div 10;
end;
x:=sqrt(x);
write (x:0:3);
end.
Новые вопросы