1. Оперативная: а, г, д, е
Долговременная: б, в, ж
2. "0" или"1" - это 1 бит. 8 бит = 1 байту. отделим по 8 "0" и "1", начиная с конца. получится 4 разделения, т.е. 4 байта.
3. 1024 бит/8 = 128 байт. если запись велась с 10, то адрес последнего будет 10+128 = 138.
4. флеш-карта, дискета, CD, DVD, съемный жесткий диск.
Var
m,n,t:integer;
begin
Write('Введите два натуральных числа: '); Read(m,n);
t:=m; m:=n; n:=t;
Writeln('Результат обмена: ',m,', ',n)
end.
<em><u>Тестовое решение:</u></em>
Введите два натуральных числа: 35 -20
Результат обмена: -20, 35
Var x,y:real;
begin
read(x,y);
writeln((x+y)/2);
end;
Const
N = 5;
M = 6;
Var
A:array[1..N,1..M] of integer;
i,j:integer;
Begin
For i:= 1 to N do
Begin
if i mod 2 = 0 then
For j:= 1 to M do
Begin
A[i,j]:=(i-1)*M+j;
Write(A[i,j]:3)
End
else
For j:= M downto 1 do
Begin
A[i,j]:=(i-1)*M+j;
Write(A[i,j]:3)
End;
WriteLn
End;
ReadLn
End.