составить на Паскале: 1) программу для вычисления суммы ряда S=1+ 1/2+1/3+1/4+..+1/N. Число N вводится с клавиатуры.

1)

var

 s : real;

 i, n : integer;

begin

 s := 0;

 read (n);

 for i := 1 to n do s := s + 1 / i;

 writeln (s);

end.

2)

var

 a, i : integer;

begin

 a := 1;

 for i := 1 to 8 do

 begin

   a := a * 2;

   writeln ('Через ', i * 3, 'часов будет ', a, ' амеб');

 end;

end.

3)

var

 n, i : integer;

 x, s : real;

begin

 s := 0;

 read (n, x);

 for i := 1 to n do

   s := s + sin (i * x);

 writeln (s);

end.

4)

var

 n, a, r, i : integer;

begin

 r := 1;

 read (a, n);

 for i := 1 to n do r := r * a;

 writeln (r);

end.

Объяснение:

Будет выведено: 3, 1 и -1

Объяснение:

Объясняю почему. При запуске скрипта начнётся такой алгоритм: сначала переменной I будет присвоено значение первого элемента списка, а именно 3 и выведется на экран (т.к. print - вывод на экран). Дальше переменной I будет присвоен второй элемент списка, а именно 1 и выведется на экран. Далее переменной I будет присвоен третий элемент спика, а именно -1 и выведется на экран. Т.к. на этом элементов списка не останется, программа завершит свою работу. Если вам нужно последнее выведенное число, то это -1, но такой код не выведет одно число никак.