<span>5 дискретность - алгоритм должен состоять из конечного числа шагов, приводящих к решению задачи</span>
в 1бите содержится 0,000122 килобайт , ответ: 0,0266 килобайт
DIM X(10)
RANDOMIZE TIMER
FOR I = 1 TO 10
X(I) = INT(RND(1) * 20) + 1
PRINT X(I); " ";
NEXT I
PRINT
INPUT "Введите число"; K
P = 1
FOR I = 1 TO 10
IF X(I) MOD K = 0 THEN P = P * X(I)
NEXT I
<span>IF P = 1 THEN PRINT "Кратных нет" ELSE PRINT "P ="; P</span>
Var i, c, n: integer;
begin
read(n);
c:=1;
for i:=1 to n do
c:=c*2;
writeln(c);
<span>end.</span>
Pascal abc.
Проверка:
введите двузначное число: 74
результат: 47<span>
</span>