Х=
=
y=
=
x+y=58+43=101{10}=145{8}=65{16}
----------------------------------------------------------
111010{2}=1*2+1*2^3+1*2^4+1*2^5=58{10}
101011{2}=1*2^0+1*2^1+1*2^3+1*2^5=43{10}
101{10}=
101|_8_
- 96 12|_8_
-------- -8 1
5 ----
4
101{10}=145{8}
101|_16_
-96 6
-----
5
101{10}=65{16}
<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var ЕстьКусков,НадоКусков:integer;
Readln(ЕстьКусков,НадоКусков);
var Длины:=ReadArrInteger(ЕстьКусков);
var ОбщаяДлина:=Длины.Sum;
if НадоКусков>ОбщаяДлина then Writeln(0)
else begin
var ДлинаКуска:=ОбщаяДлина div НадоКусков;
repeat
if Длины.Select(Кусок->Кусок div ДлинаКуска).Sum >=НадоКусков then break
else ДлинаКуска-=1;
until false;
writeln(ДлинаКуска)
end
end.
<u>Пример</u>
4 11
802 743 457 539
200
Program time;var x, a, b, c, d: integer;begin readln(x); a:= x div 1000; b:= (x mod 1000) div 100; c:= (x mod 100) div 10; d := x mod 10; writeln(d,c,b,a);end.
В первой задаче после выполнения программы переменная P будет равна 24.
Во второй задаче переменная S будет равна 12.
В третьей задача переменная S будет равна 41.
В четвёртой задаче переменная c будет равна 9.
В пятой задаче переменные x и t будут равны 5, а переменная y = 11.