1. Вычислить, используя функцию
y = 1 / 10 • 1 /15 • 1 / 20 • ... • 1 /100
В Pascal ABC
Var
x:integer;
y:real;
begin
x:=10; y:=1;
while x<=100 do
begin
y:=y*(1/x);
x:=x+5;
end;
writeln(y= ,y);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
