1012,1112,10002,10102,11002,1000012.
Program procenti;
Var Summ:real; k:integer;
begin
writeln('введите процент');
Readln(k);
Summ:=387*(0.2*k);
Writeln('Summ=', summ)
end.
1) 512=2^9; - 9 бит 1 пиксель после сжатия;
4096=2^12 - 12 бит 1 пиксель до сжатия
2) 12/9=4/3 - каждый пиксель после сжатия уменьшит свой размер в (4/3) раза
3) 1050*4/3=350*4=1400 (Кбайт)
Uses crt;
var a:integer;
begin
a:=10000;
repeat
if (a mod 133=125) and (a mod 134=111) then writeln(a);
a:=a+1;
until a>99999;
end.