Составить программу, которая определяет, есть ли среди цифр целого трёхзначного числа одинаковые

// PascalABC.NET 3.1, сборка 1171 от 15.02.2016
begin
  var s:=ReadInteger('n=').ToString;
  if (Pos(s[1],Copy(s,2,2))>0) or (s[2]=s[3])
  then Writeln('Есть одинаковые цифры')
  else Writeln('Нет одинаковых цифр')
end.

Тестовое решение:
n= 141
Есть одинаковые цифры

Этапы кодирования видео

- Подготовка или анализ. Просматривается исходный файл и подбирается наиболее оптимальный сжатия

- Сжатие.  

  * сокращается временная избыточность (кодируется только разностная информация, убираются повторяющиеся куски кадров, компенсация движения).

  * сокращается пространственная избыточность путем исключения мелких деталей там где при просмотре сюжета это визуально не заметно.

  * сокращается незначащая часть данных цветности (по сравнения с информацией яркости, цветовая (хроматическая) информация снижается в двое путем дискретизации)

- Квантование. Повышается информационная плотность результирующего цифрового потока путем выбора оптимального математического кода для его описания (похоже на архивирование)

1. Рисунок мяча — это его модель. 
Верно: изображения предметов — графические модели.

2. Модели изучать мир. 
Неверно: не все модели изучать мир, некоторые сделаны для красоты. Например, едва ли модель человека, сделанная в компьютерной игре, позволяет изучить мир.

3. Модели создают просто для красоты. 
Неверно: некоторые модели создают для изучения свойств объектов, например, численные модели ядерного взрыва позволяют исследовать взрыв, при этом ничего не взрывая.

4. Глобус — модель земли.
Верно: глобус отражает некоторые свойства Земли.

5. Не бывает моделей природных явлений.
Неверно: например, волны в бассейне могут служить моделью цунами.

6. Все модели человека одинаковые.
Неверно: автопортрет Ван Гога и кукла Барби — разные модели.