Дано частину коду програми x=float(input("Уведіть x: '))
if x>-3 and x<5
y=2*x-12
else:
y=7-8*x
print(v)

В растровой графике при увеличении всегда есть потеря информации и «ступенчатый эффект», вес файла зависит от разрешения и глубины цвета, закодировать можно любое изображение, оно состоит из пикселей, изображение которое мы видим на экране компьютера/телефона использует цветовую палитру RGB (Red Green Blue), при печати используется палитра CMYK (Cyan Magenta Yellow KeyColour(чёрный))
векторная графика использует графические примитивы, закодировать можно не все изображения, при увеличении нет потери информации, не такая хорошая передача цвета как в растровой графике, тк используются примитивные цвета

Много лишнего(наверно), только с олимпиады!Как есть.
uses crt;
var b,n,i,k,c,o,x1:integer;
    f,s,ch:string;
    r,g: text;
    A:array [0..9] of integer;
begin
assign (r,'C:\Bin.txt');
reset (r);
readln (r,f);
close (r);
for i:=1 to length(f) do
begin
s:=copy(f,1,1);
if (s<>'0') or (s<>'1') or (s<>'2') or (s<>'3') or (s<>'4') or (s<>'5') or (s<>'6') or (s<>'7') or (s<>'8') or (s<>'9')then
delete(f,1,1);
if (s='0') or (s='1') or (s='2') or (s='3') or (s='4') or (s='5') or (s='6') or (s='7') or (s='8') or (s='9')then
begin
x1:=pos(s,ch);
if x1<>0 then
begin
delete(ch,x1,1);
ch:=ch+s;
end
else
ch:=ch+s;
end;
end;
val(ch,n,o);
  N := Abs(N);
  for i := 0 to 9 do
  A[ i ] := 0;
  while N > 0 do
  begin Inc(A[ N mod 10]);
  N := N div 10;
  end;
assign (g,'C:\Bout.txt');
rewrite (g);
  for i := 0 to 9 do
  while A[ i ] > 0 do
  begin Write(g,i);
  Dec(A[ i ]);
  end;
  close(g);
end.