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

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

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

program lesson15_19;

procedure print(n, bin: integer);
var
    i: integer;
begin
    while bin > 0 do
    begin
        i := n div bin;
        if i > 0 then
            write('+')
        else
            write('-');
        n := n - bin * i;
        bin := bin div 2;
	end;
end;

var
    h, m: integer;
begin
    writeln('enter h and m');
    readln(h, m);

    h := h mod 12;
    m := m mod 60;

    write(' ');
    if h = 0 then
        write('----')
    else
        print(h, 8);

    writeln();

    if m = 0 then
        write('------')
    else
        print(m, 32);

    readln();
end.