Var a : Integer;
s : Set of Byte;
Begin
s:=[];
Readln(a);
Repeat
If (a mod 10) in s then Write(a mod 10:2) else Include(s,a mod 10);
a:=a div 10;
Until a=0;
Writeln;
end.
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (m, d, r) := ReadInteger3;
var (km, kd) := (r div m, r div d);
for var i := 0 to km do
for var j := 0 to kd do
if i * m + j * d = r then Println(i, j)
end.
<h2>Пример</h2><h3>2000 3000 20000</h3><h3>1 6 </h3><h3>4 4 </h3><h3>7 2 </h3><h3>10 0 </h3>
Нет . Для использования выставки одежды на монекены , на показах
8*16*(ln(128)/ln(2)) бит на пиксель = 896 бит объём / 8 = 112 байт объём.