20 напишите программу, которая в последовательности натуральных чисел определяет минималь- ное чётное число. программа получает на вход количество чисел в последовательности, а затем сами числа. в последовательности всегда имеется чётное число. количество чисел не превышает 1000 введённые числа не превышают 30 0 программа должна вывести одно число — минимальное чётное число. пример работы программы: входные данные выходные данные 8 4 3 20 6 6
После этого изображение попадает в буфер обмена. Надо не забывать, что запуск некоторых приложений очищает буфер обмена; на эту удочку не раз попадались любители вставлять скриншоты в Word, поэтому лучше заблаговременно запустить программу, в которой планируется обрабатывать скриншот, свернуть её и потом делать нужный скриншот.
Проще всего скриншот обработать в программе Paint, входящей в состав Windows. Сделав скриншот, заходим в Paint и из меню выбираем "Файл" - "Создать". Будет создан некоторый "холст" с размерами по умолчанию. У меня размер по умолчанию стотит 50х50 пикселей. Чтобы его задать, надо в меню выбрать "Рисунок" - "Атрибуты", выставить ширину и высоту по 50, единицы измерения - точки, палитра цветная. Потом нажать "По умолчанию", выйти из Paint и снова зайти. А можно, заходя в Paint, ставить тот размер, какой надо, и нажимать ОК.
Итак, создали маленький пустой холст. Нажимает Ctrl+V - это команда вставки изображения из буфера. Paint поймет, что картинка на хост не помещается и предложит расширить холст. Соглашаемся и вот уже картинка в редакторе. Почему лучше так, а не заранее создавать холст нужного размера? Во-первых, лень запоминать, сколько надо точек выставлять. Во-вторых, при любой вставке холст автоматически подгоняется под размер картинки.
Теперь можно редактировать картинку, периодически сохраняя её, чтобы не потерять при ошибках. По окончании редактирования выбираем "Файл" - "Поместить в центр рабочего стола". Если разрешение экрана не менялось после скриншота, картинка встанет точно по размеру.
x, y, z: integer;
begin
writeln('-1 - конец ввода и вывод суммы');
repeat
readln(y);
if (y < -1) then
writeln('Эм... Не, не съем: отрицательная цЫфра.')
else
if (y >= 0) then
z := z + y
else
if (y = -1) then
if (z >= 100) then
break
else
writeln('Не, не годится, прибавь ещё чуток, до сотни не дотягивает');
if (z > 1000) then
begin
writeln('Всё, перевес. Сумма чисел больше 1000.');
exit;
end;
until (false);
writeln('Сумма примерно равна (если округлить) ', round(z / 10) * 10);
end.