<span>2 Звук будет внедрен в презентацию.</span>
program noname;
uses crt;
var
a:array[1..100] of integer;
i,n,k:byte;
begin
clrscr;
for i:=1 to 20 do begin
randomize;
a[i]:=random(100)-50;;
write(a[i],' ');
if (a[i] mod 2=0) and (a[i]<>0) then k:=i;
end;
n:=0;
for i:=1 to k do
if a[i]<0 then n:=n+1;
writeln;
writeln(k,'-номер последнего четного');
writeln(n,'-число отрицательных элементов до ', a[k])
end.
Переведем число 972 в двоичную систему счисления:
972₁₀ = 1111001100₂
Нужно осуществить 10 циклических сдвигов.
Получаем: 0111100110₂ = 486₁₀
1) 1*2^6+1*2^5+0*2^4+0*2^3+1*2^2+1*2^1+0*2^0=64+32+0+0+4+2+0=102
2)012 = 0∙21+1∙20 = 0+1 = 110
<span>D) файлы.
С) = D1*D1 + E1*E1;
</span><span>D) =B1*0,01
</span><span> В) 2;
С) =А1/В1;
C) = если(А1 = 5, В4*2; В4 + 10);
</span>