создать веб страницу через блокнот . тема ЕГЭ по истории , чтобы били картинки и был и текст, но чтобы был сжатый . Фон хороший. Желательно создать таблицы

111110100,764, 1f4

Объяснение:

1.

Максимальная степень 2, меньшая исходного числа это 256(2^8). значит всего чисел в ответе будет 8+1(нулевая степени)=9. 9 позиция будет 1. вычитаем из исх. числа эту степень

500-256=244. Делаем аналогично. ближайшая степень 128(2^7). 8 позиция будет 1. 244-128=116. Ближайшая степень 64(2 в 6). 7 позиция 1. 116-64 равно 52. Ближайшая степень 32(2 в 5). 6 позиция 1. 52-32=20. ближайшая степень 16(2 в 4). 5 позиция 1. 20-16=4. ближайшая степень 4(2 в 2). 3 позиция 1, четвертая 0. 4-4=0, значит 1 и 2 позиции будут 0. теперь совмещаем все позиции и получаем ответ:

111110100

2. Делаем аналогично. К 500 ближайшая степень 8 это 64(8^2, ответ имеет 3 числа). Домножаем 64 до ближайшего меньшего исходного числа. это 7. 500-64*7=52. ближайшая степень 8(8^1). Аналогично домножаем. Множитель - 6. 52-8*6=4. В конце ставим 4.

Получаем 764

3. Ближайшая степень 256(16^2). 500-256= 244. 3 Позиция будет 1. Следующая степень - 16(16^1). Домножаем, максимальный множитель - 15(F). 244-240=4. Последнее число 4.

ответ 1F4

// PascalABC.NET 3.3
// Cборка 1590 от 03.12.2017

1)
begin
  var (a,b,c):=ReadInteger3('Введите a,b,c,d-> '); var d:=ReadInteger;
  if a=d then begin Println('Первое число равно',d); exit; end;
  if b=d then begin Println('Второе число равно',d); exit; end;
  if c=d then begin Println('Третье число равно',d); exit; end;
  a:=d-a; b:=d-b; c:=d-c;
  var max:=max(max(a,b),c);
  Println('Максимальная разность->',max);
end. 

2)
begin
 var a:=ReadInteger('Введите возраст->');
 if (a mod 10=1) and (a<>11) 
   then writelnformat('Вам {0} год',a)
   else
      if (a mod 10=2) or (a mod 10=3) or (a mod 10=4) 
        then writelnformat('Вам {0} года',a)
        else writelnformat('Вам {0} лет',a);
end.

3)
begin
 var (x,a,b):=readreal3('Введите x,a,b->');
 WritelnFormat('Нужно приобрести {0} банок краски',Round((a*b)/x));
end.

4)
begin
 var (a,b):=readreal2('Введите a,b->');
 if a+b>10 
   then println(2*a*b)
   else 
     if a>b 
       then
        Println(a+b,a-b)
       else
        Println(a-b,a+b);
end.