Question

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

Answer 1

Var
   n,S:integer;
Begin
Write('n = ');
ReadLn(n);
S:=0;
While n > 0 do
   Begin
   S:=S+n mod 10;
   n:=n div 10
   End;
WriteLn(S/Sqrt(S));
End.