1. увеличится на 88.
39*8= 312
28*8=224
312-224=88
Var ar:array[1..10] of integer;
i,k1,k2,k3:integer;
begin;
randomize;
k2:=1;
writeln('Array:');
for i:=1 to 10 do
begin;
ar[i]:=random(10);
write(ar[i]:4);
if odd(i) then k2:=k2*ar[i] else k1:=k1+ar[i];
if ar[i]>3 then inc(k3);
end;
writeln;
writeln('1:',k1);
writeln('2:',k2);
writeln('3:',k3);
end.
1) Записать число в двоичной системе счисления, и степени двойки справа налево: 16,8,4,2,1
2) Пройдитесь по каждой цифре двоичного числа. Если эта цифра 1, запишите
соответствующую степень двойки под цифрой. Если эта цифра 0, запишите
под цифрой 0.
т.е. 16 в первой степени, 8 в нулевой, 4 в первой, 2 в нулевой, 1 в первой
3) сложить полученные результаты
<span>
10101 ² = 16^1+8^0+4^1+2^0+1^1= 16+0+4+0+1=21
^ - это возведение в степень
</span>
Шрифт без засечек называется гротеск.
Var
b: double;
begin
readln(b);
writeln('z = ', System.Math.Pow(sin(4 * sqr(3 * b - 4)), 4));
<span>end.</span>