2 переменные по байту, Олимпиадная задача Опции

[Ipkis]

Вводятся 4 числа:
1-е от 0 до 3
2-е от 4 до 10
3-е от 11 до 21
4-е от 0 до 255

используя только 2 переменных по байту
Вывести их в обратном порядке...

Сообщение отредактировано: Ipkis - 22.11.2005 0:21

[xds]

Сегодня наконец заглянул в этот пост... в итоге, когда написал решение, оказалось, что оно совпадает с предложенным Ipkis. Могу только простонать про совместимость со стандартным вводом-выводом (у меня мания совершать бесполезные действия).

program Perversion;

var
  a, b: Byte;

procedure ReadAndWrit;
begin
  Write('n2>');
  Readln(a);
  b := (a - 4) shl 4;
  Write('n3>');
  Readln(a);
  b := b or (a - 11);
  Write('n4>');
  Readln(a);
  Write(a, ' ', b and $F + 11, ' ', b shr 4 + 4, ' ');
end;

begin
  Write('n1>');
  Readln(a);
  case a of
  0:
    begin
      ReadAndWrit;
      Writeln('0');
    end;
  1:
    begin
      ReadAndWrit;
      Writeln('1');
    end;
  2:
    begin
      ReadAndWrit;
      Writeln('2');
    end;
  3:
    begin
      ReadAndWrit;
      Writeln('3');
    end;
  end;
end.

Сообщение отредактировано: volvo - 5.11.2006 19:31