1. Вычислить, используя функцию y = 1 / 10 • 1 /15 • 1 / 20 • ... • 1 /100 В Pascal ABC
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.
Не нашли ответ?
Похожие вопросы