Var m, n, c, p, q, r: integer;
begin
read(m); write(':'); read(n); write(':'); read(c);
write(' + ');
read(p); write(':'); read(q); write(':'); read(r);
write(' = ');
c := c + n * 60 + m * 60 * 60;
r := r + q * 60 + p * 60 * 60;
r := c + r;
writeln(r div 3600 mod 24:2, ':', r mod 3600 div 60:2, ':', r mod 60:2);
<span>end.</span>
Сесть за стул
↓
Включить компьютер
↓
Использовать компьютер
↓
Выключить компьютер
↓
Встать со стула
Ответ:
30 различных команд можно передать с помощью 5 лампочек
Объяснение:
(10) 30 => (2) 11110
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,10,99); a.Println;
var imin:=0;
var imax:=0;
for var i:=1 to n-1 do
if a[i]>a[imax] then imax:=i
else
if a[i]<a[imin] then imin:=i;
if imin<imax then
for var i:=imin+1 to imax-1 do a[i]:=0
else
for var i:=imax+1 to imin-1 do a[i]:=0;
a.Println
end.
<u><em>Тестовое решение:</em></u>
n= 15
38 62 15 47 50 69 74 10 62 47 68 89 28 13 50
38 62 15 47 50 69 74 10 0 0 0 89 28 13 50