Предмет: Информатика,
автор: Samurai949
дан одномерный массив натуральных чисел получить из него другой массив составленный из наименьших общих кратных двух соседних чисел. pascal abc СРОЧНО!!
Ответы
Автор ответа:
0
//PascalABC.Net 3.2
function NOK(a, b: integer):integer;
begin
while a<>b do
if a>b then a-=b else b-=a;
result:=a;
end;
begin
var a:=ReadArrInteger('Вводите: ', readinteger('Размерность массива: '));
var b: array of integer; setLength(b, length(a)-1);
for var i:=0 to length(a)-2 do b[i]:=(a[i]*a[i+1]) div NOK(a[i], a[i+1]);
a.Println;
b.Print;
end.
function NOK(a, b: integer):integer;
begin
while a<>b do
if a>b then a-=b else b-=a;
result:=a;
end;
begin
var a:=ReadArrInteger('Вводите: ', readinteger('Размерность массива: '));
var b: array of integer; setLength(b, length(a)-1);
for var i:=0 to length(a)-2 do b[i]:=(a[i]*a[i+1]) div NOK(a[i], a[i+1]);
a.Println;
b.Print;
end.
Автор ответа:
0
Var
A,B:array[1..10000] of integer;
i,j,M,N:integer;
Begin
Write('N = ');ReadLn(N);
Write('Исходный массив: ');
For i:= 1 to N do
Begin
A[i]:=random(10)+1;
Write(A[i],' ');
End;
WriteLn;
Write('Полученный массив: ');
For i:= 1 to N-1 do
Begin
if A[i]>A[i+1] then M:=A[i]
else M:=A[i+1];
j:=M-1;
Repeat
j:=j+1;
Until (j mod A[i] = 0)and(j mod A[i+1] = 0);
B[i]:=j;
Write(B[i],' ')
End;
End.
A,B:array[1..10000] of integer;
i,j,M,N:integer;
Begin
Write('N = ');ReadLn(N);
Write('Исходный массив: ');
For i:= 1 to N do
Begin
A[i]:=random(10)+1;
Write(A[i],' ');
End;
WriteLn;
Write('Полученный массив: ');
For i:= 1 to N-1 do
Begin
if A[i]>A[i+1] then M:=A[i]
else M:=A[i+1];
j:=M-1;
Repeat
j:=j+1;
Until (j mod A[i] = 0)and(j mod A[i+1] = 0);
B[i]:=j;
Write(B[i],' ')
End;
End.
Похожие вопросы
Предмет: Математика,
автор: aigeranurtasova15
Предмет: Математика,
автор: vervik08
Предмет: Математика,
автор: darwin22
Предмет: Литература,
автор: grafolesya
Предмет: Литература,
автор: Аноним