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

Var i, x: integer;

y: real;

begin

//присваиваем первоначальные значения переменным

x:=10; y:=1;

//вычисляем значение функции

for i:=1 to 19 do

begin

y:=y * (1/x);

Writeln ('Шаг ', i, ', Значение x - ', x, ', Значение Y - ', y);

x:=x+5;

end;

//выводим значение функции

writeln ('Значение функции: ', y);

end.