Если тебе программу нужно написать, то скажи на каком языке то
Лат. carne vale, «прощай, мясо» либо лат. car val — «корабль шутов»
(ln(128)/ln(2)) бит на пикс * 15 точек ширина * 15 точек высота = 1575 бит инф. объём (вес фотки).
begin
var n := ReadInteger;
if n mod 25 = 0 then
Println(25, n div 25)
else
begin
var (n1, n2) := (24, 25);
var r: integer;
repeat
for var i := 1 to n div n1 do
begin
r := (n - n1 * i) mod n2;
if r = 0 then
begin
Println(n1, i + (n - n1 * i) div n2);
exit
end;
end;
Dec(n1);
Dec(n2);
until n1 = 0;
end;
end.
===== PascalABC.NET =====
1.
, 6бит на символ, 6*100 = 600бит = 75байт.
2. 3.5кб * 1024 = 3584байт <=> 3584 символов (1 символ - 1 байт)
