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

    В Pascal ABC

Ответы 1

  • varx: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.    
    • Автор:

      bernie
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years