1 час 2 поциента . всего 9 поциентов в 11 30 а в 12, 10
Program n1;
var a: array[1..10] of integer;
i,p: integer;
begin
randomize;
write('массив: ');
p:=1;
for i:=1 to 10 do
begin
a[i]:=random(21)-10;
write(a[i],' ');
if a[i]<0 then p:=p*a[i];
end;
writeln;
write('произведение отрицательных: ',p)
end.
Есть растровая и векторная графика
Растровая - все изображение составлено из пикселей, точек, которые имеют свой цвет и расположение. Чем больше этих пикселей - тем лучше качество картинки. Недостатки: при большом масштабировании теряется качество (наверняка замечали квадраты при увеличении картинки) и еще один недостаток - объем файла, нужно задать цвет для каждого пикселя
Векторная графика - изображение состоит из примитивов (точка, линии, прямоугольники, окружности и прочее). Такое изображение легко увеличивается и уменьшается без потери качества, объем информации в файле меньше, (в файле хранятся не пиксели а параметры фигур: размер, цвет или радиус круга) но для сложных рисунков понадобится ОЧЕНЬ много точек и прямоугольников :D
Function f(n:integer):boolean;
var m:set of 0..9;
begin
m:=[];
f:=true;
while n>0 do
begin
if (n mod 10) in m then f:=false;
m:=m+[n mod 10];
n:=n div 10;
end;
end;
begin
writeln(f(12321));
end.
Результат:
<span>False</span>