Двое бросают игральные кости. Кто чаще выигрывает: у кого выпадет 6 очков в сумме или 7? Напишем программу, моделирующую случайный эксперимент.
program costy;
var k,n,s,i,m1,m2:integer;
begin
randomize;
writeln('Введите количество испытаний');
readln(n);
for i:=1 to n do
begin
k:=random(6)+1; {бросание первой кости}
s:=random(6)+1; {бросание второй кости}
if k+s=7 then m1:=m1+1;
if k+s=6 then m2:=m2+1;
end;
writeln('частота выпадения в сумме 6 равна ', m1/n:2:2);
writeln('частота выпадения в сумме 7 равна ', m2/n:2:2);
end.
Бросание монеты будет аналогично выбору компьютером случайного числа в диапазоне 1..6. Это можно сделать с команды…………..
а) readln(n);
б) writeln('Введите количество испытаний');
в) for i:=1 to n do;
г) random(6)+1