Program Pr1;
uses crt;
var ch,min,sek,ch2,min2,sek2,a,b,c:integer;
Begin
clrscr;
a:=0;
b:=0;
readln(ch,min,sek,ch2,min2,sek2);
while a<=ch do begin
a:=a+1;
b:=b+3600;
c:=b;
end;
b:=b+min*60+sek;
while a<=ch2 do begin
a:=a+1;
c:=c+3600;
end;
c:=c+min2*60+sek2;
writeln(c-b);
end.
Var
i : Integer;
begin
for i := 10 to 99 do
if (i div 10 - i mod 10 = 1) or (i mod 10 - i div 10 = 1) then <span>Writeln(i);
</span> Readln;
<span>end.</span>
0011 010 0000 011 это в десятичном 4
159 13 46 18 это в двоичном 001100010011010100111001001000000011000100110011001000000011010000110110001000000011000100111000
(кстати ты перепутал десятичный и двоичный коды)
По порядку:
1-3-4-6-5
или
4-6-5
При ответе стоит исходить из того, требуется в данном учебнике (учебном пособии или другом учебном материале) обязательное написание http://