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.

Answer 2

Конечно, вот как вы можете реализовать это в Pascal:

pascalCopy code
program CalculateRatio;

uses
  SysUtils, Math;

function SumOfDigits(num: Integer): Integer;
var
  digit: Integer;
begin
  Result := 0;
  while num > 0 do
  begin
    digit := num mod 10;
    Result := Result + digit;
    num := num div 10;
  end;
end;

var
  n: Integer;
  sumOfDigitsN, squareRoot: Real;
  ratio: Real;
begin
  Write('Введите натуральное число n: ');
  ReadLn(n);

  sumOfDigitsN := SumOfDigits(n);
  squareRoot := Sqrt(sumOfDigitsN);

  if sumOfDigitsN = 0 then
    Writeln('Неверно введено число.')
  else
  begin
    ratio := sumOfDigitsN / squareRoot;
    Writeln('Отношение: ', ratio:0:2);
  end;
end.

Программа сначала определяет функцию SumOfDigits, которая вычисляет сумму цифр заданного числа. Затем она считывает натуральное число n, вычисляет сумму цифр данного числа, вычисляет корень квадратный из этой суммы и вычисляет отношение суммы цифр к корню квадратному из суммы цифр. Результат выводится на экран.