Question

Найти сумму (по информатике на языке Паскаля с циклом For) S= 1/2+1/4+1/6...+1/2*n Помогите, очень прошу

Answer 1

Ответ:

//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)

const k=100;

var

 a:array[1..k] of integer;

 i,n:integer;

 s:real;

begin

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

 readln(n);

 for i:=1 to n do

   s:=s+1/(2*i);

 writeln(s);

end.

Объяснение:

Answer 2

Для решения данной задачи на языке Паскаль с использованием цикла For, мы можем использовать следующий алгоритм:

1. Объявляем переменные "n" и "S" типа Real, где "n" будет обозначать количество слагаемых, а "S" - сумму слагаемых. 2. Считываем значение "n" с клавиатуры. 3. Инициализируем переменную "S" нулевым значением. 4. Запускаем цикл For, который будет выполняться от 1 до "n" включительно, с шагом 1. 5. Внутри цикла, для каждой итерации, добавляем к переменной "S" значение выражения 1 / (2 * i), где "i" - текущая итерация цикла. 6. По завершении цикла, выводим значение переменной "S" на экран.

Пример кода на языке Паскаль:

program Summation;
var
  n: Integer;
  S: Real;
  i: Integer;
begin
  write('Введите количество слагаемых (n): ');
  readln(n);
  
  S := 0;
  for i := 1 to n do
  begin
    S := S + 1 / (2 * i);
  end;
  
  writeln('Сумма слагаемых S = ', S);
end.

Таким образом, после выполнения данного кода на экран будет выведено значение суммы слагаемых "S".