Question

программа моделирует при помощи датчика случайных чисел бросание двух игральных костей до выпадения двух 6. выведите на экран число бросаний. АВС паскаль

Answer 1

var a,b,k:integer;
begin;
randomize;
while ((a<>6) or (b<>6)) do
begin;
a:=random(1,6);
b:=random(1,6);
inc(k);
writeln(A,' и ',B,', бросок №',k);
end;
writeln('Всего было сделано ',k,' бросков');
end.