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

143

279

Посмотреть ответы 2

Ответы на вопрос:

enikandrova04

Информатика

4,5(83 оценок)

Pascal abc / pascalabc.net: var n,s: integer; begin write('n = '); readln(n); s: =0; while n > 0 do begin s: =s+sqr(n mod 10); n: =n div 10 end; writeln('s = ',power(s,1/3)); end. turbo pascal / free pascal: var n,s: integer; begin write('n = '); readln(n); s: =0; while n > 0 do begin s: =s+sqr(n mod 10); n: =n div 10 end; writeln('s = ',exp(ln(s)/3)); end.