145(8)=1100101(2)
A7(16)=10100111(2)
складываем
1 1 0 0 1 0 1
1 0 1 0 0 1 1 1
------------------------
1 0 0 0 0 1 1 0 0
- 1 0 1 0 вычитаем
----------------------
1 0 0 0 0 0 0 1 0
Мегаба́йт (русское обозначение: Мбайт; международное: Mbyte, MB) — единица измерения количества информации, обозначающая, в зависимости от контекста взято с вики
Uses Crt;
Var
A:array[1..256] of integer;
i,iMin,N,B:integer;
Begin
ClrScr;
Randomize;
Write('N = ');ReadLn(N);
Write('A(',N,'):');
iMin:=1;
For i:= 1 to n do
Begin
A[i]:=random(21)-10;
Write(' ',A[i]);
if A[i] < A[iMin] then iMin:=i;
End;
WriteLn;
WriteLn('Min(A) = ',A[iMin],'[',iMin,']');
Write('Min = ');ReadLn(i);
B:=A[i];
A[i]:=A[iMin];
A[iMin]:=B;
Write('A(',N,'):');
For i:= 1 to n do
Write(' ',A[i]);
ReadKey
End.
1) одновременная работа со звуком, анимацией, видео, статичными объектами
Ответ:
расширение справа от последней точки
название справа от последней точки
12.pdf : 12 название pdf расширение
остальные файлы точно так же