Задать вопрос Регистрация
Помочь другим

  • Составить программу на Паскале:
    1)s:=1/1 - 1/2 + 1/3 - 1/4...-1/10
    2)p:=3/5 * 5/7 * 7/9...11/13
    Спасибо!!

Ответы 5

  • Если что-то не читается, обновите страницу

    • Автор:

      leajvr3
    • 6 лет назад
    • 0
  • Печально, но... неверно.

    • Автор:

      adanqsk8
    • 6 лет назад
    • 0
  • ок спасибо что заметили
  • // PascalABC.NET 3.3, сборка 1636 от 10.03.2018// Внимание! Если программа не работает, обновите версию!begin   var s:=0.0; var y:=1.0; var x:=1.0;   var p:=1.0;   var n:=3; var t:=5;  for var i:=1 to 10 dobegin  s:=s+y/x; x+=1;  y:=-y;  Writeln('s=',s);end;  Writeln('s=',s);  for var i:=1 to 5 do  beginp*=((n)/(t));n+=2; t+=2;end;  Writeln('p=',p);end.
    answer img

    • Автор:

      uriel
    • 6 лет назад
    • 0
  • \displaystyle s= \frac{1}{1}- \frac{1}{2}+ \frac{1}{3}-...- \frac{1}{10}; \\ \\ p= \frac{3}{5}\times \frac{5}{7}\times \frac{7}{9}\times \frac{9}{11}\times \frac{11}{13}= \frac{3\cdot5\cdot7\cdot9\cdot11}{5\cdot7\cdot9\cdot11\cdot13}= \frac{3}{13} PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018Внимание! Если программа не работает, обновите версию!№1begin  var (s,z):=(0.0,1);  for var i:=1 to 10 do begin s+=z/i; z:=-z end;  Writeln(s)end.Результат0.645634920634921№2begin  Writeln(3/13)end.Результат0.230769230769231Во вложении - контрольное решение задания №1 в пакете Maple 15
    answer img

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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