1. Вычислить, используя функцию y = 1 / 10 • 1 /15 • 1 / 20 • ... • 1 /100 В Pascal ABC

Question

1. Вычислить, используя функцию
y = 1 / 10 • 1 /15 • 1 / 20 • ... • 1 /100

В Pascal ABC

Answer 1

Var
x:integer;
y:real;
begin
    x:=10;   y:=1;
         while x<=100 do<br>              begin
                   y:=y*(1/x);
                   x:=x+5;
              end;
writeln('y= ',y);
end.