Урок 15. Задача 21.
Primary tabs
Задача про Бинарные часы
var hr, mt :integer; procedure calculate_time(val, rank :integer); begin while(rank > 0) do begin if ((val div rank) > 0) then begin write('+'); val := val - rank; end else write('-'); rank := rank div 2; end; end; procedure scoreboard(hr, mt :integer); var r_hr, r_mt :integer; begin r_hr := 8; r_mt := 32; if hr = 0 then write('----') else calculate_time(hr, r_hr); writeln(); if mt = 0 then write('------') else calculate_time(mt, r_mt); end; begin writeln('Enter hour'); readln(hr); writeln('Enter minute'); readln(mt); scoreboard(hr, mt); readln(); end.
- Log in to post comments
- 837 reads
vedro-compota
Wed, 08/24/2022 - 19:42
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)