Var a,k,m,min,i,flag:integer; begin readln(a); m:=a; {сохраняю введенное значение и считаю кол-во цифр в числе} while m >0 do begin m:=m div 10; k:=k+1; end; min:=9; {записываю самое большое нечетное число} {в цикле отсекаю последнюю цифру в числе и проверяю ее на нечетность. Если она нечетная и меньше числа min, то сохраняю ее в min и присваиваю переменной Flag 1. Если к концу программы в переменной flag будет 1, значит хотя бы одна нечетная цифра в числе была, если flag=0 тогда в числе нет нечетных} for i:=1 to k do begin if (a mod 10<=min)and(a mod 2<>0) then begin min:=a mod 10; flag:=1; end; a:=a div 10; end; if flag=0 then writeln('нет нечетных') else writeln(min); end.
1. Укажите программу для работы с растровыми изображениями.
B. Paint.
2. В файле какого формата хранятся растровые изображения?
А. BMP.
3. В каком формате применяется сжатие?
А. JPG.
4. Формат графического файлы – это:
представления и расположения графических данных на внешнем носителе.
5. Выберите графический формат, в котором могут храниться анимированные изображения.
А. GIF.
Точно не уверенна, но думаю так
Редактор векторной графики Inkscape.
1. Укажите стандартный формат файлов в редакторе Inkscape.
А. Inkscape SVG.
2. Для точной настройки инструментов служит:
B. Панель параметров инструментов.
3. Просмотреть список выполненных действий можно, выполнив команду:
C. Правка→История действий.
4. Какая команда меню открывает диалог «Заливка и обводка»?
C. Объект→ Заливка и обводка.
5. Какую клавишу необходимо удержать нажатой при выборе цвета обводки из Палитры?
C. Shift.