Var ar:array[1..n] of integer; pro,i,k:uint64; begin randomize; pro:=1; writeln('First array:'); for i:=1 to n do begin ar[i]:=random(22,23); //Серьёно? write(ar[i]:4); pro:=pro*ar[i]; end; writeln; writeln('Pro=',pro); write('Enter value:'); readln(k); writeln('Final array:'); for i:=1 to n do begin ar[i]:=ar[i]+k; write(ar[i]:6); end; end.
Пример работы программы: First array: 23 23 22 22 22 22 23 23 23 22 23 22 22 23 23 Pro=10868183115618730368 Enter value:3 Final array: 26 26 25 25 25 25 26 26 26 25 26 25 25 26 26
Var ar:array[1..n] of integer; k1,i,c,k2,k3:integer; begin randomize; writeln('First array:'); for i:=1 to n do begin ar[i]:=random(9)-3; write(ar[i]:4); end; writeln; write('Enter index 1:'); readln(k1); write('Enter index 2:'); readln(k2); if (ar[k1]>0) and (ar[k2]>0) then begin c:=ar[k1]; ar[k1]:=ar[k2]; ar[k2]:=c; end else begin write('Enter index 3:'); readln(k3); c:=ar[1]; ar[1]:=ar[k3]; ar[k3]:=c; end; writeln('Final array:'); for i:=1 to n do write(ar[i]:4); end.
Пример работы программы: First array: -1 -1 1 -1 0 -1 -2 -2 5 -2 Enter index 1:9 Enter index 2:1 Enter index 3:7 Final array: -2 -1 1 -1 0 -1 -1 -2 5 -2
Данное сообщение занимает объём в 80 бит.
Объяснение:
Дано:
N = 164 символов
K = 10 символов
Найти: I бит
N = 2^i
2^7 < 164 < 2^8
Округляем в большую строну и получаем: i = 8 бит/символ
I = K * i
I = 10 символов * 8 бит/символ = 80 бит
ответ: I = 80 бит.