100байт = 800бит
800 / 80 = 10 бит на символ
2^10 = 1024 символов всего
Во всех программах у меня будет использоваться процедура swap:
procedure swap(a: ^real; b: ^real);
var
t: real;
begin
t := a^;
a^ := b^;
b^ := t;
end;
swap(x,y) - меняет местами значения x и y.
1.
var
A: array[1..100] of real;
i, j, N: integer;
begin
readln(N);
for i := 1 to N do
read(A[i]);
for j := 1 to (N div 2) - 1 do
for i := 1 to (N div 2) - j do
swap(A[i], A[i + 1]);
for j := 1 to (N div 2) - 1 do
for i := (N div 2) + 1 to N - j do
swap(A[i], A[i + 1]);
for i := 1 to N do
writeln(A[i])
end.
2.
var
A: array[1..100] of real;
i, N: integer;
begin
readln(N);
for i := 1 to N do
read(A[i]);
for i := 1 to N - 1 do
swap(A[i], A[i + 1]);
for i := 1 to N do
writeln(A[i])
end.
3.
var
A: array[1..100] of real;
i, N: integer;
begin
readln(N);
for i := 1 to N do
read(A[i]);
for i := N downto 2 do
swap(A[i], A[i - 1]);
for i := 1 to N do
writeln(A[i])
end.
1)Существенные свойства объекта входят в определение вида этого объекта.
2)<span>Список свойств в определении понятия объекта позволяет выделить существенный объект из множества других в окружающей действительности.</span>
3)Обобщение понятий – это мысленное действие, смысл которого в объединении нескольких видовых понятий в одном родовом понятии.
Var a: array[1..7] of real;
k, n: integer;
begin
readln(k, n);
for i:=1 to 7 do begin
read(a[i]);
if a[i]<>0 then if a[i]>0 then a[i]:=a[i]-a[k] else a[i]:=a[i]-a[n];
write(a[i], ' ');
А) 514=5*7^2+1*7^1+4*7^0=256
б) 0.017=0*8^0 + 0*8^-1 + 1*8^-2 + 7*8^-3=0.029296875
в) Немного не ясно что надо в сделать а вообще советую скачать конвртация чисел на андроид там все есть с решением