программа моделирует при помощи датчика случайных чисел бросание двух игральных костей до выпадения двух 6. выведите на экран число бросаний. АВС паскаль
Answers & Comments
Nobunaga
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.
Answers & Comments
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.