Var
A:integer;
Begin
WriteLn('Введите трёзхначное число');
ReadLn(A);
WriteLn(A mod 10, (A div 10) mod 10, A div 100);
End.
<span><span>ночь - ноль - соль - сель - сень - день</span>
рота - </span>нота - нога <span>- нора - пора - пола - полк
бант - рант - рана - раса - роса - коса
бег - бог - бок - бак - мак - рак - гак - маг - шаг
море - горе - гора - кора - кома - кума </span>- пума <span>- сума - суша
миг - мир - пир - пар - бар - бас - бес - вес - век</span>
Const n=10;
var a,d:array[1..n] of integer;
k,i,j,t:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(900)+100;
write(a[i]:4);
end;
writeln;
writeln('Количество делителей:');
for i:=1 to n do begin
k:=2;
for j:=2 to a[i] div 2 do
if a[i] mod j = 0 then k:=k+1;
d[i]:=k;
write(d[i]:4);
end;
writeln;
for i:=1 to n-1 do
for j:=1 to n-i do
if d[j]>d[j+1] then
begin
t:=d[j]; d[j]:=d[j+1]; d[j+1]:=t;
t:=a[j]; a[j]:=a[j+1]; a[j+1]:=t;
end;
Writeln('Отсортированный массив:');
for i:=1 to n do Write(a[i],' ');
Writeln
end.
Пример:
882 524 890 505 911 792 772 458 507 368
Количество делителей:
18 6 8 4 2 24 6 4 6 10
Отсортированный массив:
911 505 458 524 772 507 890 368 882 792
<em><u>PascalABC.Net</u></em>
const
m=8;
n=11;
var
a,b,c:array[1..m,1..n] of integer;
i,j:integer;
begin
Randomize;
Writeln('Исходный массив A');
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=Random(51)-25;
Write(a[i,j]:4)
end;
Writeln
end;
Writeln('Исходный массив B');
for i:=1 to m do
begin
for j:=1 to n do
begin
b[i,j]:=Random(41)-20;
Write(b[i,j]:4)
end;
Writeln
end;
Writeln('Результирующий массив С');
for i:=1 to m do
begin
for j:=1 to n do
begin
c[i,j]:=a[i,j]+b[m-i+1,n-j+1];
Write(c[i,j]:4)
end;
Writeln
end
end.
<em><u>Тестовое решение:</u></em>
Исходный массив A
-23 -14 -9 0 -13 -13 14 18 9 16 15
-3 21 -4 24 -23 -9 19 9 -16 -14 23
17 -25 -19 -25 8 -7 10 -23 -6 -23 -20
-20 -3 9 12 6 -17 3 -24 5 -25 -11
18 -21 -4 -20 -22 19 5 -15 -23 14 -2
-20 -5 -10 -7 -14 4 -4 -18 7 -3 13
-8 15 24 -10 -10 11 11 -20 -18 6 23
2 -17 -23 5 2 -11 17 -3 -16 25 -8
Исходный массив B
6 -6 -10 -3 -10 18 19 4 -3 -5 14
-17 10 5 -15 11 2 16 0 18 5 14
-14 15 -14 -7 6 -18 -15 -7 -13 -10 11
-20 -14 5 -19 16 -1 11 -15 2 -13 3
8 -18 -8 19 -4 1 -9 2 7 -18 9
12 -12 -4 -9 17 -8 17 -1 -16 -13 4
-7 10 -1 0 9 7 -3 9 12 -18 6
3 -14 -17 -19 8 6 5 -18 6 3 8
Результирующий массив С
-15 -11 -3 -18 -8 -7 22 -1 -8 2 18
3 3 8 33 -26 -2 28 9 -17 -4 16
21 -38 -35 -26 25 -15 27 -32 -10 -35 -8
-11 -21 16 14 -3 -16 -1 -5 -3 -43 -3
21 -34 -2 -35 -11 18 21 -34 -18 0 -22
-9 -15 -23 -14 -29 -14 2 -25 -7 12 -1
6 20 42 -10 6 13 22 -35 -13 16 6
16 -22 -26 9 21 7 7 -6 -26 19 -2