Вычисление произведения

[dashakapl]

Составить программу вычисляющую произведение

[dashakapl]

...

[Вадим Мошев]

В чём проблемы? Что не получается? Начинайте делать, будут затруднения - спрашивайте.

[min@y™]

Предлагаю модераторам прибивать такие темы на корню.
Ну что за неуважение: ни тебе здрасьти, ни тебе пожалуйста!

Ко мне так даже начальство не обращается.

[Вадим Мошев]

Ну что за неуважение: ни тебе здрасьти, ни тебе пожалуйста!

В этом да, я согласен. Но наш форум, ИМХО, может прослыть недружелюбными. Они приходят, ТИПА просят помощи, а мы удаляем их темы.

А вообще удалять имхо не надо. Иногда на таких темах можно немного заработать.

[min@y™]

А вообще удалять имхо не надо. Иногда на таких темах можно немного заработать.

Ну, тогда предлагаю перемещать такие темы во фриланс без уведомления.
Имха, разумная альтернатива удалению (с уведомлением).

[newerow1989]

ни тебе здрасьти, ни тебе пожалуйста!

Здравствуйте, уважаемые коллеги!

Предлагаю готовое решение, задание которого дал пользователь dashakapl.

const a=2;
var i:integer;
    p1,p2:real;
begin
   p1:=1;
   p2:=1;
   For i:=1 to 10 do
      p1:=p1*i*(i+a)/(i*i+a*a);
   For i:=2 to 4 do
      p2:=p2*i*i*i/(i+a);
   p1:=p1+p2;
   Writeln(p1:5:5);
   Readln;
end.

Приятного Вам дня!