• Вычисление математического ожидания оформить в виде процедуры.(PASCAL)

Ответы 1

  • var  m:real; n,i:integer;procedure MathW(var i:integer;var m:real);var x,p:real;begin;write('Введите значение ',i,':');readln(x);write('Введите вероятность ',i,':');readln(p);m:=m+x*p;end;begin;write('Введите количество испытаний:');readln(n);for i:=1 to n doMathW(i,m);write('Result:',m);end.
  • Добавить свой ответ

Войти через Google

или

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

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

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