Uses crt;
const n=4;
m=4;
var a: array [1..n,1..m] of integer;
b: array [1..100] of integer;
x,y,z,max,min,k: integer;
begin
z:=1;
for x:=1 to n do begin
for y:=1 to m do
begin
a[x,y]:=random(20);
write(a[x,y]:3);
end;
writeln;
end;
for y:=1 to m do begin
max:=a[1,y];
for x:=1 to n do
if a[x,y]>max then max:=a[x,y];
b[z]:=max;
inc(z);
<span> end;
</span> min:=b[1];
k:=z-1;
for z:=1 to n do
if b[z]<min then min:=b[z];
writeln;
writeln(min);
<span>end.
---
Блок-схема во вложении</span>
uses Crt;
const n=10;
Type Mas=array [1..n] of integer;
var P, M: Mas;
i: integer;
begin
ClrScr;
for i:=1 to n do
P[i]:=10+random(20);
for i:= 1 to n do
Write (P[i]:4);
WriteLn; WriteLn;
for i:=1 to n do
if (i mod 2 = 0) then M[i]:=i*P[i] else M[i]:=-1*P[i];
for i:=1 to n do
Write (M[i]:4);
ReadLn;
end.
//Pascal ABC.NET 3.1 сборка 1256
Var
m,n,i,j:integer;
begin
readln(m,n);
for i:=m to n do
begin
write(i,':');
for j:=2 to i div 2 do
if i mod j=0 then write(j:4);
writeln;
end;
end.
Пример ввода:
12
16
Пример вывода:
12: 2 3 4 6
13:
14: 2 7
15: 3 5
16: 2 4 8
Вместо вир поставить фок
вместо курс поставить танц
вместо б поставить д
вместо к поставить ф
Для начала, напишем формулу как найти алфавит мощности N=2^i
N(Мощность алфавита), i(вес 1 символа т.е чему равен 1 символ в битах)
Теперь подставляем ,что нам дано в тексте в формулу
1текст 32=2^5 ; i=5 бит
2текст 1024=2^10 ; i=10бит
А как нашли, то что 32=2^5 тут всё просто, тут надо 2×2×2×2×2 будет 32 и кол.двоек означает вес 1 символа.
Теперь, чтобы найти во сколько раз нужно.
10÷5=2
Ответ:В 2 раза количество информации во втором тексте больше, чем в первом.