Партнерка на США и Канаду по недвижимости, выплаты в крипто
- 30% recurring commission
- Выплаты в USDT
- Вывод каждую неделю
- Комиссия до 5 лет за каждого referral
Программа Prostoyvibor. pas
const n=5; m=3;
type
index=1..n;
element= array [1..m] of integer;
mas=array [index] of element;
procedure Vvod(Var a:mas);
Var i, j:integer;
begin
for i:=1 to n do
for j:=1 to m do
a[i, j]:=random(50);
end;
procedure Vivod(a:mas);
Var i, j:integer;
begin
for i:=1 to n do
begin
for j:=1 to m do
write(a[i, j]:4);
writeln;
end;
end;
{ функция нахождения количества составных чисел }
function f(s:element):integer;
var i, kol, k :integer;
T:boolean;
begin
for i:=1 to m do
begin
T:=false;
For k:=2 to trunc(sqrt(s[i])) do
if s[i]mod k=0 then T:=true;
if T then kol:=kol+1;
end;
f:=kol;
end;
{процедура сортировки методом простого выбора}
procedure sort (var a:mas);
var i, j,k:index;
x: element;
begin
for i:=1 to n do
begin
k:=i;
x:=a[i];
for j:= i+1 to n do
if f(a[j])<f(x) then
begin
k:=j;
x:=a[j];
end;
a[k]:=a[i];
a[i]:=x
end;
end;
var a:mas;
i, j : integer;
begin
Vvod(a);
Writeln('Исходная матрица');
Vivod(a);
Writeln;
sort(a) ;
Writeln('Строки матрицы отсортированы по количеству составных чисел');
Vivod(a);
readln;
end.
Программа Puzir. pas
type mas=array[1..100] of integer;
Var i, j,n, k:integer;
a: mas;
function sum(d:integer):integer;
var s:integer;
begin
s:=0;
While d>0 do
begin
s:=s+d mod 10;
d:=d div 10;
end;
sum:= s;
end;
procedure sortpuz(Var a:mas);
var i, j:integer;
begin
for i:=1 to n do
for j:=1 to n-1 do
if sum(a[j])<sum(a[j+1]) then begin
k:=a[j];
a[j]:=a[j+1];
a[j+1]:=k;
end;
end;
procedure Vivod( a:mas);
Var i:integer;
begin
for i:=1 to n do
Write(a[i]:4);
Writeln;
end;
begin
Writeln('Vvedite n');
Readln(n);
for i:=1 to n do
a[i]:=i;
Vivod(a);
Sortpuz(a);
Vivod(a);
end.
Программа Sliyan. pas
type mas=array[1..100] of integer;
Var i, j,n, k,g, m:integer;
a, b,c: mas;
procedure Vvod(Var a:mas;n:integer);
Var i, j:integer;
begin
for i:=1 to n do
a[i]:=random(50);
end;
procedure Vivod(a:mas;n:integer);
Var i, j:integer;
begin
for i:=1 to n do
write(a[i]:4);
writeln;
end;
procedure sortpuz(Var a:mas;n:integer);
var i, j:integer;
begin
for i:=1 to n do
for j:=1 to n-1 do
if a[j]>a[j+1] then begin
k:=a[j];
a[j]:=a[j+1];
a[j+1]:=k;
end;
end;
procedure sortsl(x, y:mas;var z:mas);
var i, j:integer;
begin
i:=1; j:=1;
while (i<=n)and(j<=m) do
begin
if x[i]<y[j] then begin
z[i+j-1]:=x[i];
inc(i);
end
else begin
z[i+j-1]:=y[j];
inc(j);
end;
end;
if i<=n then begin
While (i+j)<=(n+m) do
begin
z[i+j-1]:=x[i];
inc(i);
end;
z[i+j-1]:=x[i];
end
else begin
While (i+j)<=(n+m) do
begin
z[i+j-1]:=y[j];
inc(j);
end;
z[i+j-1]:=y[j];
end;
end;
begin
Writeln('Vvedite n');
Readln(n);
Writeln('Vvedite m');
Readln(m);
Vvod(a, n);
Writeln('A');
Vivod(a, n);
Vvod(b, m);
Writeln('B');
Vivod(b, m);
Sortpuz(a, n);
Writeln('Sort A');
Vivod(a, n);
Sortpuz(b, m);
Writeln('Sort B');
Vivod(b, m);
Sortsl(a, b,c);
Writeln('Rezult');
Vivod(c, n+m);
Readln;
end.
