1. Вычислить, используя функцию

y = 1 / 10 • 1 / 15 • 1 / 20 • ... • 1 / 100

В Pascal ABC

Question

Боруля

15 мая, 22:55

+4

Ответы (1)

Знаете ответ на вопрос?

Олюся · Answer 1

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.

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