Программа моделирует при датчика случайных чисел бросание двух игральных костей до выпадения двух 6. выведите на экран число бросаний. авс паскаль
115
258
Ответы на вопрос:
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.
Популярно: Информатика
-
Stanislava15311.01.2020 11:28
-
ЯковПервый26.01.2023 03:57
-
shkolnik123310.02.2022 21:09
-
анюта60630.09.2021 06:24
-
Vlad44kostroma404.09.2020 08:59
-
Amarov26.10.2021 14:19
-
Angelochek0225.01.2022 01:50
-
alina2015a23.09.2022 21:24
-
Pandochkalove730.01.2023 09:14
-
Leg1oner26.03.2021 10:24