<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
for var i:=100 to 999 do begin
var (flag,j,r):=(True,2,Round(Sqrt(i)));
while flag and (j<=r) do
if i mod j = 0 then flag:=false else j+=1;
if flag then Print(i)
end
end.
Portable Document Format (PDF) — межплатформенный формат электронных документов, разработанный фирмой Adobe Systems с использованием ряда возможностей языка PostScript. В первую очередь предназначен для представления полиграфической продукции в электронном виде. Для просмотра существует множество программ, а также официальная бесплатная программа Adobe Reader. Значительное количество современного профессионального печатного оборудования имеет аппаратную поддержку формата PDF, что позволяет производить печать документов в данном формате без использования какого-либо программного обеспечения. Традиционным способом создания PDF-документов является виртуальный принтер, то есть документ как таковой готовится в своей специализированной программе — графической программе или текстовом редакторе, САПРи т. д., а затем экспортируется в форматPDF для распространения в электронном виде, передачи в типографию и т. п.
PDF с 1 июля 2008 года является открытым стандартом ISO 32000.
Формат PDF позволяет внедрять необходимые шрифты (построчный текст),векторные и растровые изображения, формы и мультимедиа-вставки. ПоддерживаетRGB, CMYK, Grayscale, Lab, Duotone, Bitmap, несколько типов сжатия растровой информации. Имеет собственные технические форматы для полиграфии: PDF/X-1a, PDF/X-3. Включает механизм электронных подписей для защиты и проверки подлинности документов. В этом формате распространяется большое количество сопутствующей документации.
1 и 0 = 0
0 или 1 = 1
не 1 = 0
Ответ: 0
Program chik;
var a:array[1..100]of integer;
i,r:integer;
begin
r:=0;
for i:=1 to 10 do
begin
read(a[i]);
end;
for i:=1 to 9 do
begin
if(a[i]>a[i+1])then r:=1;
end;
if(r=1)then writeln('не является возрастающей');
if(r=0)then writeln(' Яв.. возрас..');
end.