Задача 23 Урок 15

Задача 23 Урок 15:

Задача про Бинарные часы:

program u15z23;
var h, m :integer;

procedure chas(c:integer);
var a:integer;
begin
  a:=8;
  if c=0 then
    write('----')
  else
  begin
    while(a > 0) do
    begin
      if ((c div a) > 0) then
      begin
        write('+');
        c := c - a;
      end
      else
        write('-');
    a := a div 2;
    end;
  end;
end;

procedure min (m :integer);
var b :integer;
begin
  b:=32;
  if m=0 then
    write('------')
  else
  begin
    while(b > 0) do
    begin
      if ((m div b) > 0) then
      begin
        write('+');
        m := m - b;
      end
      else
        write('-');
      b := b div 2;
    end;
  end;
end;


begin
  writeln('Vvedite chacu');
  readln(h);
  writeln('Vvedite minytu');
  readln(m);
  chas(h);
  writeln();
  min(m);
  readln();
end.