// PascalABC.NET 3.3, сборка 1625 от 17.01.2018 // Внимание! Если программа не работает, обновите версию!
function IsPrime(Self:integer):boolean; extensionmethod; // является ли число n простым begin if Self<4 then Result:=True else begin var found:=(Self mod 2=0); var p:=3; while (not found) and (sqr(p)<=Self) do begin found:=(Self mod p=0); p+=2 end; Result:=not found end end;
function SumDig(Self:integer):integer; extensionmethod; // возвращает сумму цифр числа n begin var n:=Self; Result:=0; while n>0 do begin Result+=n mod 10; n:=n div 10 end end;
begin 100.To(999).Where(t->t.SumDig.IsPrime).Println end.
1). TIFF — широко принятый формат изображений. Обычно, в формате TIFF фотоаппараты сохраняют несжатые снимки, или сжатые по алгоритму без потерь. Это означает высокое качество, но, взамен, большой размер файлов.
2). Преимущества и особенности формата RAW вызывают большой интерес у всех любителей фотографии. Одни слышали, что RAW позволяет получить более качественное изображение, других пугает сложность обработки исходного файла. Как бы то ни было, если понять, что из себя представляет формат RAW, то можно будет осознанно походить к решению снимать в нем или ограничиться JPEG. В этой статье постараемся ответить на два во что такое RAW и каковы его преимущества и недостатки? Так как RAW-файлы для дальнейшего редактирования обычно преобразовывают в формат TIFF, то и его можно считать частью RAW-процесса. Также рассмотрим преимущества и недостатки RAW по сравнению с основной альтернативой ему – форматом JPEG.
Если преподаватель допускает тройные условия, то вот Если можно только двойные условия, то надо переделывать.