дан одномерный массив естественных чисел получить из него иной массив составленный
Дан одномерный массив естественных чисел получить из него иной массив составленный из меньших общих кратных 2-ух примыкающих чисел. pascal abc Безотлагательно!!
Задать свой вопрос
Maksim Barvyn
общее кратное - это число, которое делится без остатка на оба этих числа?
Нелли
да
2 ответа
Юра Вершков
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]gt;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]gt;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.
Anna Derevjanikina
а как начать задачу, в то что-то не работет
Виктория Шехоленкова
Массив обязан вводится с клавы либо рандомно? Здесь он вводится рандомно
Володя Яцкаер
Здесь массив вводится автоматически, и выводится новый массив
Tamara
автматически
Танюха Фабровская
Что-то не работает? Выдаёт ошибку? Если да, то какую?
Нина Одинцева
задачка выполнется не так, т.е. мне нужно ввести размерность массива а он все автоматически делает
Данька Леошков
Хорошо, на данный момент исправлю
Ника Гвоськова
Так обязано быть?
Люда Настюшенко
неа, все по минувшему
Саша Эрлангер
Пожалуйста, обновите страницу))
Егор
//PascalABC.Net 3.2
function NOK(a, b: integer):integer;
begin
while alt;gt;b do
if agt;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 alt;gt;b do
if agt;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.
Юрик
что то не то
Коростошевская
Лидия
fail
Александр
На данный момент исправлю
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов