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