Дано натуральное число n. Найти кубический корень из суммы квадратов цифр заданного...

0 голосов
22 просмотров

Дано натуральное число n. Найти кубический корень из суммы квадратов цифр заданного числа. ПАСКАЛЬ.


Информатика (510 баллов) | 22 просмотров
Дан 1 ответ
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:=Exp(ln(x)/3);
  write (x:0:3);
end.
(5.3k баллов)