<span>Всего базовых цветов три, поэтому при кодировке каждого из них двумя битами мы имеем кодировку цвета шестью, а значит 2^6 = 64 различных цветов. </span>
Var h1,m1,s1,h2,m2,s2,t:integer;
begin
write('Start: ');
readln(h1,m1,s1);
write('Finish: ');
readln(h2,m2,s2);
t:=(h2*3600+m2*60+s2)-(h1*3600+m1*60+s1);
writeln(t);
end.
Пример:
<span>Start: 11 20 30
Finish: 13 15 40
6910</span>
Var n,k,s:integer;
begin
write('n='); readln(n);
s:=0;
while n>0 do
begin
k:=n mod 10;
if k mod 2 <> 0 then s:=s+k;
n:=n div 10;
end;
writeln('s=',s);
end.
Пример:
n=123456
s=9
1.19625 в двоичной системе счисления 100110010101001
2. 110 файлов , 120 файлов + папок