<em>// PascalABC.NET 3.2, сборка 1374 от 10.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadArrInteger(7);
Write('Произведение четных: ',
a.Where(x->x.IsEven).Aggregate(1.0,(x,y)->x*y),
', количество нечетных: ',a.Where(x->x.IsOdd).Count)
end.
<u>Пример</u>
-15 8 42 11 95 118 -27
Произведение четных: 39648, количество нечетных: 4
13+5=18 вот такое решение
Так :)
program p1;
var a:integer;
begin
writeln('Введите число: ');
read(a);
writeln('число: ',a);
<span>end.</span>
Во первых надо уточнять в задании о каком приложении/программе идет речь
Характеристики буду приводить для Фотошопа, лишнее потом можно будет убрать
- размер холста (в наиболее удобных единицах) ширина и длина
- маштаб
- активный слой (по какому слою рисуем или взаимодействуем)
- тип слоя
- прочие характеристики слоя (их там много)
- маска или не маска
- каналы (например один из RGB каналов)
- цветовое пространство (RGB, HSL, Lab, ..)
и т.д. потому что там полно всяких прибамбасов
Пятеричная система счисления, ибо 4-ка есть.