Сколько значащих нулей в записи троичного числа: 2*3^15+3^14+3^7+2*3^3+2*3^0.

Какого редактора??
Напишу про пейнт

Ластик/Цветной ластик – стирает часть рисунка при нажатии левой кнопки мыши или заменяет основной цвет на фоновый при нажатии правой.

 Заливка – заполняет цветом одноцветную область рисунка.

 Выбор цвета – определяет цвет фрагмента при выполнении на нем щелчка и устанавливает его в качестве основного или фонового цвета.

 Масштаб – увеличивает фрагмент рисунка.

 Карандаш – рисует как обычный карандаш при нажатой левой или правой кнопкой мыши.

 Кисть – используется как карандаш, но рисует более толстыми линиями, форма кисти может выбираться.

 Распылитель – распыляет краску при нажатой левой или правой кнопкой мыши.

 Линия – проводит прямую линию при нажатой левой кнопке мыши (удерживая клавишу Shift, можно получить линию строго вертикальную, горизонтальную линию или под углом 45o).

 Кривая – рисует прямую линию, которую затем можно изгибать 2 раза, отводя мышь в сторону от рисунка.

 Прямоугольник – создает прямоугольник или квадрат (удерживая Shift) путем протаскивания мыши с нажатой левой кнопкой.

 Скругленный прямоугольник – то же, что и прямоугольник, но углы скруглены.

 Эллипс – рисует овалы и круги (удерживая Shift).

 Многоугольник – для рисования многоугольника необходимо щелкать в каждой его вершине, а в последней – дважды.

1)
Program lapy;
var lapy:integer;
Begin
  Writeln('Сколько лап?');
  Readln(lapy);
  If lapy=0 then Writeln('Это рыба');
  if lapy=2 hten Writeln('Это птица');
  if lapy=4 then Writeln('Это лось');
  if lapy=6 then Writeln('Это жук');
  if lapy=8 then Writeln('Это паук');
end.
2)
Program kinotheatr;
var mesto:integer;
Begin
  Writel('Укажите Ваше место:');
  Readln(mesto);
  if (mesto>=1) and (mesto<=10) then Writeln('Цена 150р.');
  if (mesto>=11) and (mesto<=15) then Writeln('Цена 100р.');
  if (mesto>=16) and (mesto<=20) then Writeln('Цена 75р.');
End.