Задача 7.6. Обчислити:
Цю формулу можна розписати так :

Program Pr1;
Var k: integer; D:real;
Begin
  D:=1; {Початкове значення добутку завжди =1}
 for k:=3 to 10 do D:=D*SQRT(k+1);
 WriteLn('D=' ,D:5:2);
End.

Результати роботи програми: D=2579.30

Завдання 7.6.1. Обчислити добуток :