ФОТОПЕЧАТЬС развитием цифровых технологий фотографии чаще всего стали храниться исключительно в виде файлов. Просматривать снимки на дисплее компьютера, фотокамеры, мобильного телефона удобнее, чем перелистывать альбомы или перебирать стопки отпечатков.<span>Но именно в цифровую эру печать фотографий стала действительно доступной для всех и каждого. Больше не нужны проявители и закрепители, увеличители и кюветы – достаточно иметь цифровую камеру, принтер и некоторые знания, чтобы получать отпечатки, о которых фотолюбители прошлого могли только мечтать.</span>Монохромная печать90% домашних задач, требующих наличия принтера, связано с монохромной (одноцветной) печатью – принтер позволяет выводить на бумагу самые разные документы, содержащие текст и несложную графику. С листа удобнее, чем с экрана монитора, читать электронные книги и статьи. Школьникам и студентам часто и помногу приходится печатать доклады, рефераты и курсовые работы, причем иногда в нескольких экземплярах. Перед поездками нередко возникает необходимость распечатать карту местности с указанием маршрута движения – размещенные в Интернете картографические службы позволяют отправить такую карту на печать одним кликом.Монохромную печать часто путают с черно-белой. Эти типы печати похожи, поскольку для них используется только черная краска. Однако монохромная печать – это печать в оттенках серого цвета, она выполняется при помощи струйных и лазерных принтеров. Черно-белую печать поддерживают только матричные модели.Лазерные принтеры<span>Лазерные принтеры – самые распространенные монохромные печатающие устройства. Своим названием они обязаны наличию в них лазера, с помощью которого изображение переносится на фотобарабан и электризует его. К наэлектризованным участкам барабана прилипает тонер (красящий порошок), барабан прокатывается по бумаге, перенося на нее частички порошка. Затем бумага с тонером нагревается в «печке», и расплавленный порошок «припекается» к бумаге.
1) Var a:array[1..20] of longint;i,k:longint; Begin for i:=1 to 20 do read(a[i]); for i:=2 to 20 do if (abs(a[i-1]) mod 3=0) and (abs(a[i]) mod 3=0) then k+=1; writeln(k); End.
2) Var a:array[1..20] of longint;i,max:longint; Begin for i:=1 to 20 do read(a[i]); max:=-2000000000; for i:=1 to 20 do if (abs(a[i]) mod 11=0) and (a[i]>max) then max:=a[i]; writeln(max); End.