Дан фрагмент алгоритма a:= x mod 10;
b := x div 100;
s := 0;
p := 1;
если a mod 2=0
то s:= s+a
иначе p:= p*a
если b mod= 2=0
то s:=s+b
иначе p:=p*b

Какое наибольшее двузначное число необходимо ввести, чтобы после выполнения фрагмента алгоритма s=12, p=1

?

Сіз векторлық графикамен көп нәрсені жасай аласыз, сайып келгенде, векторлық графиканы пикселдерге, рэстерге және басқаларға көрсету керек. Бұл рендеринг процесі сізде бар деректерді баяулатады. Іс жүзінде 3D графикасы - векторлық графикалық деректер. 3D рендерде көрсету жылдамдығының шектеулері көрсетіледі, себебі басып шығару өлшемдерінің көпшілігі уақытты алуға мүмкіндік береді.

Екіншіден, көптеген сенсорлар пикселдік негізделген түсіруді ғана жасауға мүмкіндік береді, өйткені дискретті таңдау. Іс жүзіндедискреттеу есептеу аймағында көптеген артықшылықтар бар. Көптеген процестер дискретті деректер үлгілері болған кезде әлдеқайда оңай болады. Сондықтан, бұлыңғырлық сияқты заттар векторлық қозғалтқыш үшін қымбат болуы мүмкін. Бірақ бұл шектеу фактор ғана емес, практикалық фактор.

Үшіншіден, пиксельді манипуляция түсінуге оңай, өйткені ол әлемдегі нақты орталар қалай жұмыс істейтініне жақсырақ жақындайды. Осылайша дискретті жеңіл әсерлермен үйлестіре отырып, сіздің ортаңызды векторизацияға қарағанда әлдеқайда практикалық.

Шындығында растра мен вектордың арасында шынымен анық айырмашылық бар және көбінесе әдістерді араластырып, оның векторы қандай екенін айту өте қиын. Мысалы, сұйықтық - пикселге негізделген деректерге векторлық әсер ету.

1. В "реальном мире" это решается примерно так:

// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
begin
  var a:=ArrRandom(ReadInteger('n='),0,2); a.Println;
  a.Sorted.Println
end.

Тестовое решение:
n= 15
1 2 0 2 2 0 2 0 2 0 0 1 0 0 2
0 0 0 0 0 0 0 1 1 2 2 2 2 2 2

2. Но, поскольку считается, что школьникам больше заняться нечем, их заставляют писать примерно в таком стиле (и время займет, и ощибок понаделают):

// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
const
  nn=100;
var
  i,j,n,t:integer;
  a:array[1..nn] of integer;
begin
  Write('n='); Read(n);
  Randomize;
  for i:=1 to n do begin
    a[i]:=Random(3);
    Write(a[i],' ')
    end;
  Writeln;
  for i:=1 to n-1 do
    for j:=1 to n-1 do
      if a[j]>a[j+1] then begin
        t:=a[j]; a[j]:=a[j+1]; a[j+1]:=t
        end;
  for i:=1 to n do Write(a[i],' ');
  Writeln;
end.

Тестовое решение:
n=15
0 1 1 0 2 1 0 2 1 2 1 0 0 2 0
0 0 0 0 0 0 1 1 1 1 1 2 2 2 2