Question

40 балов! Составить программу для Паскаль

Answer 1

var

i: integer;

mult: real;

begin

 mult := 1;

 for i:= 2 to 10 do

 begin

   mult := mult * (1 - 1/i) * (1 - 1/i);

 end;

 writeln(mult);

 readln();  

Вот тебе ответ по этому выражению.