Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.