Const
N = 33;
Var
A:array[1..N] of real;
i,k:integer;
Begin
Randomize;
k:=0;
For i:= 1 to N do
Begin
if random(2) = 1 then A[i]:=random*N
else A[i]:=0;
Write(A[i]:0:3,' ');
if A[i] = 0 then k:=k+1
End;
WriteLn;
WriteLn('Количество нулей в массиве: ',k);
ReadLn
End.
Ответ:
1110011010
Объяснение:
Решается деление на 2. Остаток и является ответом.
Ответ:
b =14
Объяснение:
Составим уравнение ((((х+3)+3)+3)*b)+3=199
Подставляем 5+3=8+3=11+3=14*b+3
199-3=196 196:14=14