Var a,b,c,d,e:integer;
begin
for a:=100 to 500 do begin
b:=a mod 2; c:=a div 10 mod 10; d:=a div 100;
e:=b+c;
if e=15 then writeln(a);
end;
end.
А := Массив случайных чисел(их количество = N)
Б := A[0]
цикл i (от 1 до N):
если остаток от деления A[i] на 2 (вроде - mod в паскале) = 0 то:
если A[i]< Б то:
Б := A[i]
Вывод(Б)
Во первых надо уточнять в задании о каком приложении/программе идет речь
Характеристики буду приводить для Фотошопа, лишнее потом можно будет убрать
- размер холста (в наиболее удобных единицах) ширина и длина
- маштаб
- активный слой (по какому слою рисуем или взаимодействуем)
- тип слоя
- прочие характеристики слоя (их там много)
- маска или не маска
- каналы (например один из RGB каналов)
- цветовое пространство (RGB, HSL, Lab, ..)
и т.д. потому что там полно всяких прибамбасов
В общем это похоже на принцип связи мобильника, компьютер через многопроводную линию - связывается с другими устройствам.
Template <typename T>
inline T const& LinearRoot (T const& y, T const& k, T const& b) {
return (y - b) / k;
}