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

Question

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

Dginh · Answer

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....