Битовые операции

[LEX.darnica]

Сообщение от _Dmitry

Точно так.

а тут же без сдвига, без сложения!

[_Dmitry]

Ну, давай соображать дальше, a*b - это значит мы должны найти сумму: a+a+a+a+...+a, т.е. складываем число а, b раз.

var
  a,b,i: byte;
  c: word;
begin
  a:=255; b:=255;
  c:=0;
  for i:=1 to b do c:=c+a;
  writeln(c);
end.

[LEX.darnica]

ну да!shl, shr- это операции сдвига!мне ними надо воспользоваться.

[_Dmitry]

Еще одно извращение

var
  a,b,n: byte;
  c,d: word;
begin
  a:=255; b:=255;
  n:=1;
  while (b shr n) > 1 do n:=n+1;
  c:=a shl n;
  d:=b-(1 shl n);
  c:=c+a*d;
  writeln(c);
end.

[LEX.darnica]

ну спасибо тебе большое.