Сложить (умножить) ряд цифр в Pascal

[Dukesoteg]

Сложить (умножить) ряд цифр в Pascal

Помогите составить программы, сам я паскаль недавно начал учить x_x

1. S = 1/1 + 1/2 + 1/3 + ... + 1/100

2. P = 1/1 * 1/2 * 1/3 * ... 1/100

3. S = x1 + x2 + ... + x10

4. P = x1 * x2 * ... * x10

 

[Vladimir_S]

Помогите составить программы, сам я паскаль недавно начал учить x_x

1. S = 1/1 + 1/2 + 1/3 + ... + 1/100

2. P = 1/1 * 1/2 * 1/3 * ... 1/100

3. S = x1 + x2 + ... + x10

4. P = x1 * x2 * ... * x10

Ну, поскольку Вы начали учить Паскаль, то полностью составить программы (описать переменные, ввести, где надо, значения и т.д.) я предоставляю Вам, а сами действия выглядят так:
1.
S:=0;
for i:=1 to 100 do S:=S+1.0/i;

2.
P:=1;
for i:=1 to 100 do P:=P/i;

Остальные две - аналогично.