Определить произведение чётных чисел в диапазоне от 1 до 10 в программе pasqal abc
243
254
Ответы на вопрос:
Var i,p: integer; begin i: =2; p: =1; repeat p: =p*i; i: =i+2; until i> 10; writeln('произведение: ',p); end. произведение: 3840
Популярно: Информатика
-
Каркушааа23.01.2023 10:19
-
xXMaRoXx03.12.2022 01:32
-
nastabugrim11.06.2022 20:57
-
karina27060708.05.2023 22:44
-
stoun201821.01.2022 02:36
-
katystolbova21.07.2021 12:47
-
lera007809.02.2020 05:04
-
zai4onok198828.02.2021 10:49
-
Zoi56811.07.2022 11:22
-
yankim1408.04.2020 20:17