Регистрация
СРОЧНО3333
02.11.2021 22:59
Информатика
Есть ответ 👍

По паскалю вычисление ожидания оформить в виде процедуры.

153
212
Посмотреть ответы 2

Ответы на вопрос:

KIRILLX228
KIRILLX228
4,4(54 оценок)
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 do mathw(i,m); write('result: ',m); end.
Lybava13322131
Lybava13322131
4,6(61 оценок)
//название var n: integer; begin repeat n: =readinteger('введите порядковый номер: '); until n in [1..52]; case (n mod 13) of  1: write ('двойка'); 2: write ('тройка'); 3: write ('четверка'); 4: write ('пятерка'); 5: write ('шестерка'); 6: write ('семерка'); 7: write ('восьмерка'); 8: write ('девятка'); 9: write ('десятка'); 10: write ('валет'); 11: write (''); 12: write ('король'); 0: write ('туз'); end; if n mod 13< > 0 then n: =(n div 13) + 1 else n: =n div 13; case n of 1: write (' бубен'); 2: write (' черви'); 3: write (' трефы'); 4: write (' пики'); end; end.

Популярно: Информатика