Question

Написать программу в pascal, которая вычисляет сумму S последовательности 1/1+1/2+1/3+.. .1/п

Answer 1

program raf105;

var

 n,i: integer;

 s: real;

begin

 write('n = ');

 readln(n);

 for i:=1 to n do

   s:= s+1/i;

 writeln('s = ',s);

end.

PascalABC 3.4.2

Answer 2

Вот решение задачи на языке Pascal:

bashCopy code
program SumOfSequence;
var
  p: integer;
  i: integer;
  sum: real;
begin
  write('Введите значение p: ');
  readln(p);
  sum := 0;
  for i := 1 to p do
  begin
    sum := sum + 1/i;
  end;
  writeln('Сумма последовательности равна: ', sum);
end.

Как использовать программу:

1. Запустите среду разработки Pascal.
2. Создайте новый проект.
3. Вставьте приведенный выше код программы в файл проекта.
4. Сохраните файл.
5. Скомпилируйте и запустите программу.
6. Введите значение переменной "p" и нажмите клавишу Enter.
7. Программа вычислит сумму последовательности и выведет результат на экран.

Пример вывода:

cssCopy code
Введите значение p: 5
Сумма последовательности равна: 2.283333333333333