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

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

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

program U15Z19;
var ch,m,n: integer;
procedure p1(s1,n1: integer);
begin
  while(n1>=1) do
    begin
      if ((s1 div n1)>0) then
        begin
          write('+ ');
          s1:=s1-n1;
        end
      else
          write('- ');
      n1:=n1 div 2;
    end;
end;
begin
  writeln('vvedite chasi');
  readln(ch);
  writeln('vvedite minuti');
  readln(m);
  write('  ');
  n:=8;
  if (ch=12) then
    write('- - - -')
  else
    p1(ch,n);
  writeln();
  if (m=60) then
    write('- - - - - -')
  else
    p1(m,n+24);
  readln();
end.