Ответы на вопрос:
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.
Популярно: Информатика
-
Roman4ik120731.08.2022 05:49
-
bondiserj14.06.2020 09:01
-
saruul70803.06.2022 00:02
-
ленок21607.06.2021 18:40
-
Dacha07K28.01.2023 21:26
-
RakoT151106.04.2020 09:23
-
baharaliyeva17.07.2020 18:22
-
KukolkaBaig13.05.2020 19:51
-
Nirronua01.12.2020 23:43
-
8926177445418.06.2023 15:58