Программа:
program dividers;
var x, i, p: integer;
y: array of integer;
function dividersOf(n: integer; includeNegative: boolean := false):array of integer;
var a: array of integer;
i, k: integer;
begin
k:= 1;
if(n<0) then n:= n*(-1);
for i:= 1 to n
do if(n mod i = 0)
then begin
SetLength(a, k);
a[a.Length-1]:= i;
k:= k+1;
end;
if(includeNegative)
then a:= a.Select(x -> x*(-1)).Sorted.ToArray+a;
dividersOf:= a;
end;
begin
readln(x);
y:= dividersOf(x, true);
p:= y.Length-2;
i:= 0;
writeln('Делители числа ', x, ':');
repeat
write(y[i], ', ');
i:= i+1;
until i=p;
write(y[p+1], '.');
end.
Программа:
program dividers;
var x, i, p: integer;
y: array of integer;
function dividersOf(n: integer; includeNegative: boolean := false):array of integer;
var a: array of integer;
i, k: integer;
begin
k:= 1;
if(n<0) then n:= n*(-1);
for i:= 1 to n
do if(n mod i = 0)
then begin
SetLength(a, k);
a[a.Length-1]:= i;
k:= k+1;
end;
if(includeNegative)
then a:= a.Select(x -> x*(-1)).Sorted.ToArray+a;
dividersOf:= a;
end;
begin
readln(x);
y:= dividersOf(x, true);
p:= y.Length-2;
i:= 0;
writeln('Делители числа ', x, ':');
repeat
write(y[i], ', ');
i:= i+1;
until i=p;
write(y[p+1], '.');
end.
На всех этапах своего развития человечество стремилось создать орудия, механизмы, машины облегчающие труд и обеспечивающие защиту от неприятеля. Эволюция современного общества и производства обусловила возникновение и развитие нового класса машин – роботов – и соответствующего научного направления – робототехники. Робототехника на сегодняшний день является интенсивно развивающейся научно-технической дисциплиной, изучающей как теорию, методы расчета и конструирования роботов, их систем и элементов, так и проблемы комплексной автоматизации производства и научных исследований с применением роботов. Предметом робототехники является создание и применение роботов, других средств робототехники и основанных на них технических систем и комплексов различного назначения.