Идет 4 бита для черно-белых изображений на пиксель.
1. 4*4*4=64
64/8 бит = 8 байт
2. 6*4*4=96
96/8=12
3. 3*6*4=72
72/8=9 байт
Формула: =$D$2 + D1
$d$2 - абсолютная адресация, не меняется при копировании ячейки
Вторая часть - относительная адресация и меняется в зависимости от относительной позиции
Var
a:integer;
begin
readln(a);
If (a<10000) and (a>=0) then
If (a>999) then
If ((a div 1000)=(a mod 10)) and ((a div 10 mod 10)=(a div 100 mod 10)) then
writeln('1')
else
writeln('2')
else
If (a>99) and (a<1000) then
If ((a div 100)=(a mod 10)) then
writeln('1')
else
writeln('2')
else
If (a>9) and (a<100) then
If ((a div 10)=(a mod 10)) then
writeln('1')
else
writeln('2')
else
writeln('1')
else
writeln('Неправльное число');
end.
Большое немного решение, может можно и поменьше, но так точно правильно
Var
A,B:integer;
Begin
Write('Введите два числа: ');ReadLn(A,B);
if A<B then Write(A)
else Write(B)
End.
7680/8*1.5*60=86400 байт было передано модемом
86400/2=43200 символов было передано в 16-ти битной кодировке
43200/400=108 страниц текста было передано за полторы минуты