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

[Depression period]

........Помогите, пожалуйста решить эту задачу..............или, хотя бы, напишите ссылки на сайты, где я могла бы найти решение........!!!!=))))


Условие задачи в приложенном документе...........

Сообщение отредактировано: Depression period - 8.11.2005 12:11

[hiv]

Ну, я не телепат, но может это с вас хотели?

program MUL;

var  i,n :integer;

function max3(a,b,c:integer):integer;
var r :integer;
begin
  r:=a;
  if b>r then r:=b;
  if c>r then r:=c;
  max3:=r;
end;

function P(n,i:integer):double;
var k :integer;
    m :double;
begin
  m:=1;
  for k:=1 to n do
    m:=m*max3(i,k*k,15-i);
  P:=m;
end;

begin {of main program}
  write('Vvedite n='); readln(n);
  for i:=1 to 50 do
    writeln('i=',i:2,'  P=',P(n,i));
end.