Информацией,команды из окружающего мира называются информацией,
Ответ только на первую задачу.
крестик в таблице это не подходящая фамилия.
Uses crt;
Var p1,p2,p22,k,p3,i: integer;
b:array [1..6] of integer;
Begin
Writeln('введите трехзначное целое число -');
Readln(k);
p1:=k div 100;
p22:=k mod 100;
p2:=p22 div 10;
p3:=p22 mod 10;
writeln('p1= ',p1,'p2= ',p2,'p3= ',p3);
b[1]:=p1+p2*10+p3*100;
b[2]:=p1+p3*10+p2*100;
b[3]:=p2+p1*10+p3*100;
b[4]:=p2+p3*10+p1*100;
b[5]:=p3+p2*10+p1*100;
b[6]:=p3+p1*10+p2*100;
for i:=1 to 6 do
writeln('b[',i,']= ',b);
end.
1. 2^i = 256 => i(1)=8 бит
2. 2^i = 16 => i(2)=4 бит
100x150=15000 пикс
8*15000 = 120000 бит = 15000 байт
4*15000 = 60000 бит = 7500 байт
15000-7500 = 7500 байт
15000/7500 = 2
Уменьшится на 7500 байт, уменьшится в 2 раза
Посредством SQL запросов, как и в обольшенсве баз данных