Дано натуральное число n. Найти кубический корень из суммы квадратов цифр заданного числа. ПАСКАЛЬ.
Answers & Comments
hhh54Program 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:=Exp(ln(x)/3); write (x:0:3); end.
Answers & Comments
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:=Exp(ln(x)/3);
write (x:0:3);
end.