имеется кубик, ** гранях которого цифры от 1 до 6. за сколько бросков игрок наберет более...

Question

имеется кубик, на гранях которого цифры от 1 до 6. за сколько бросков игрок наберет более 21 очка

Comments

надо мин или мак бросков или как

---

наверное и так и так, если это возможно

---

можно и симулировать

---

бросок кубика

---

Нет, нельзя, бросок обычный, его нельзя симулировать

---

нет я имею в виду что число от 1 до 6 будут случайно выбераться для счета

---

Да случайно, что то с randomize

---

Да

Answer 1

Var
 a,n,i,m:longint;
begin
 randomize;
 m:=22;
 while m>0 do
 begin
  a:=random(6)+1;
  dec(m,a);
  inc(i);
 end;
 writeln(i);
end.

Answer 2

Ето рандомный ответ будет, на него невозможно дать правильный точно ответ
Можно кидать и 22 раза, а можно и за 4