Использовать Рисователь
алг радуга
нач
новый лист(450, 300, белый)
кисть(красный)
линия(300, 50, 220,50)
линия(220, 50, 220, 100)
линия(220, 100, 300, 50)
залить(230,80)
кисть(серый)
линия(220, 100, 300, 100)
линия(300, 100, 220, 150)
линия(220, 150, 220, 100)
залить(230,110)
кисть(желтый)
линия(220, 100, 130, 100)
линия(220, 100, 130, 150)
линия(130, 150, 130, 100)
залить(150,110)
кон
<span>Сортировка методом пузырька (по возрастанию)
procedure MassivSort(var arr : array of Real; const N : Integer);var I: Integer; J: Integer; K: Integer; M: Real;begin for i:=1 to N do begin m:=Arr[i-1]; k:=i; for j:=i to n do begin if m>Arr[j-1] then begin m:=Arr[j-1]; k:=j; end; end; Arr[k-1]:=Arr[i-1]; Arr[i-1]:=m; end;end;
Сортировка по убыванию:
<span>procedure sort;
var i , j , tmp : integer;
begin
for i := 1 to n - 1 do
for j := i + 1 to n do
if a[i] < a[j] then begin
tmp := a[i];
a[i] := a[j];
a[j] := tmp;
end<span>;</span></span>
</span>
#include <iostream>
<span>#include <iomanip>
</span><span>using namespace std;
</span>int disp(int n,int m) {
<span> if (n>1) return disp(n-1,m)*(m-n+1);
</span><span> return m;
</span><span>}
</span>int main() {
<span> int n,m;
</span><span> do {
</span><span> cout<<"m = "; cin>>m;
</span><span> cout<<"n = "; cin>>n;
</span><span> if (n>m) cout<<"invalid input"<<endl;
</span><span> }
</span><span> while (m>=n);
</span><span> cout<<disp(n,m)<<endl;
</span><span> system("pause");
</span><span> return 0;
</span><span>}
m = 5
n = 2
20
m = 6
n = 3
120
</span>