Для обработки изображений с аналоговых камер и копирования их на ПК нужна плата видеозахвата. Для цифровых эта процедура не нужно. Обработать плёнку с обычного фотоаппарата можно при помощи сканера и фотографии перенести на ПК.
<u>// PascalABC.NET </u>
<u>// Версия 3.3.5 сборка 1662 (29.04.2018)</u>
begin
for var i := ReadInteger('n->') to ReadInteger('k->') do
if i.ToString.OrderBy(t -> t).AdjacentGroup.Where(t -> t.Count = 3).Count > 0
then i.Println;
end.
<u>Пример:</u>
k-> 1170
n-> 1111
1112
1113
1114
1115
1116
1117
1118
1119
1121
1131
1141
1151
1161
Пусть х - количество символов
16*x-8*x=4*2^13 (килобайты перевела в биты)
8х=2^15
x=2^12
x=4096
Var
x, y: real;
begin
write('x = ');
readln(x);
if (x <= 2) then
y := sqr(x) + 4 * x + 5
else
y := 1 / (sqr(x) + 4 * x + 5);
writeln('F(x) = ', y);
end.