Задача 23 Урок 15
Primary tabs
Задача про Бинарные часы:
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.
- Log in to post comments
- 289 reads