Написать программу для вычисления произведения 30 случайных натуральных чисел.
274
456
Ответы на вопрос:
Var a,n,i: integer; begin n: =1; for i: = 1 to 30 do begin a: =random(5)+1; n: =n*a; end; writeln('произведение 30-ти случайных чисел (в диапазоне от 1 до 5) равна ',n); end.
Популярно: Информатика
-
Артемка061017.06.2022 12:21
-
Summer200604.11.2021 20:15
-
64даня116631.01.2021 11:50
-
оскарик392904.08.2020 03:28
-
mors316.02.2021 01:12
-
jixecizagjixeci28.10.2020 16:13
-
тууутуууу03.05.2022 12:38
-
ehot200423.06.2020 22:21
-
tans83lsk05.06.2020 01:28
-
gusarova1702.06.2023 13:24