Допили код под свою прогу,а лучше переходи на питон,там такие вещи легче делаются
Ответ:
Объяснение:
BMP - без уплотнения
GIF - алгоритм LZW
JPEG - алгоритм RLE, дискретно-косинусное преобразование
PCX - алгоритм RLE
PNG - алгоритм LZ77, кодирование Хаффмана (алгоритм Deflate)
PSD - алгоритм RLE, кодирование Хаффмана
var
a, m : integer;
begin
writeln('введите 8 чисел');
read(m);
for var i := 2 to 8 do begin
read(a);
if a > 0 then if a < m then m := a;
end;
writeln('наименьшее из чисел = ', m);
end.
0 не учитывается, если 0 тоже считать как положительное число то
"if a > 0" нужно заменить на "if a >= 0"
Из большей в меньшую, обычно делать число на основание числа, которое хотят получить, с учетом что на каждой итерации деления в столбик остатокот деление не должен превышать основание.
Например число 56 перевести в двоичную систему
56/2 = 28 (остаток 0) 28/2 =14 (остаток 0) 14/2 = 7(остаток 0) 7/2=3(остаток 1) 3/2=1 (остаток 1) Число будет состоять из остатков от деления записанных в обратном порядке 111000