Const
K = 7;
Var
A:array[1..K] of integer;
i,n:integer;
Begin
For i:= 1 to K do
Begin
A[i]:=random(1001);
Write(A[i],' ');
End;
WriteLn;
n:=1;
For i:= 2 to K-1 do
if A[i]*A[i+1]>A[n]*A[n+1] then n:=i;
WriteLn(n,' и ',n+1)
End.
Запишем 32-значное двоичное число без лишних знаков. При необходимости добавляем ведущие нули
"00100110101101110000111110110110"
Разделим на 4 группы по 8 цифр и переведем их в 10ричную сс
00100110{2} = 38{10}
10110111{2} = 183{10}
00001111{2} = 15{10}
10110110{2} = 182{10}
IP = 38.183.15.182
А) последовательность чисел в 3-й степени: 1,8,27,125,216,343,512 и т.д.
б) к каждому числу прибавляется 9 и получается следующее число: 69+9=78+9=87....
69,78,87,96,105,114,123,132 и т.д.
в) 12=11+2^1, 14=12+2^1, 18=14+2^2, след число получаем: 18+2^3=26, 26+2^4=42 и т.д.
г) 10,11,100,111,1000,1111
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var
a:array[1..100]of integer;
i,n:integer;
begin
writeln('skolko elementov?');
readln(n);
randomize;
for i:=1 to n do begin
a[i]:=random(100);
write(a[i]:3);
end;
writeln;
for i:=n downto 1 do
write(a[i]:3);
end.