Question

Дано натуральное число n. Составить программу вычисления значения. Результат округлить до сотых. В Паскале, через оператор повторения.

Answer 1

Ответ:

var n,i,j: integer;

var res,sum: double;

begin

writeln('Введите n');

readln(n);

i:=1;

j:=1;

res:=0;

while (i<=n) do

 begin

 sum:=0;

 j:=1;

 while (j<=i) do

   begin

   sum:=sum+sin(j);

   j:=j+1;

   end;

 res:=res+(1/sum);

 i:=i+1;

 end;

writeln('Ответ: ',res:5:2);

end.

 

   

Answer 2

Для вычисления значения, которое описано в вашем запросе, я предоставлю вам программу на языке Pascal с использованием оператора повторения (цикла).

В данном случае, программа будет вычислять значение заданной формулы:

bashCopy code
Результат = 1 + 1/2 + 1/3 + 1/4 + ... + 1/n

Вот код на языке Pascal для вычисления этого значения и округления до сотых:

pascalCopy code
program CalculateSum;

var
  n: integer;
  i: integer;
  sum: real;

begin
  write('Введите натуральное число n: ');
  readln(n);

  sum := 0;

  for i := 1 to n do
  begin
    sum := sum + 1 / i;
  end;

  writeln('Результат: ', sum:0:2);
end.

Этот код запрашивает у пользователя натуральное число n, затем использует цикл for для вычисления значения суммы, и, наконец, выводит результат, округленный до сотых, с помощью форматирования (0:2).