Составьте программу, которая возводит в 3 степень, положительные элементы массива (а=15) и выводит модуль отрицательных элементов этого массива. На паскале
begin Write('Введите через пробел два целых положительных числа- '); Readln(m, n); {Сначала ищем НОК - наименьшее общее кратное} if m = n then begin nok := m; t := m * m end else begin t := m * n; repeat if m > n then m := m - n else n := n - m until m = n; nok := t div m end; {Теперь умножаем НОК на числа натурального ряда, пока не дойдем до величины t=m*n} if nok = t then Writeln('Требуемых чисел нет') else begin i := 1; while (nok * i < t) do begin Write(nok * i, ' '); i := i + 1 end end end.
Тестовое решение: Введите через пробел два целых положительных числа- 8 120 120 240 360 480 600 720 840
Введите через пробел два целых положительных числа- 35 620 4340 8680 13020 17360
Введите через пробел два целых положительных числа- 7 13 Требуемых чисел нет
140
Объяснение:
ландыши & васильки - 650
ландыши & лютики - 230
ландыши & (васильки | лютики) - 740
ландыши & васильки & лютики - ?
ландыши & (васильки | лютики) = (ландыши & васильки) | (ландыши & лютики) - распределительный закон
Обозначим:
ландыши & васильки = А
ландыши & лютики = В
Тогда:
ландыши & васильки & лютики = А & В (ландыши & васильки & ландыши & лютики = ландыши & васильки & лютики - закон повторения)
А | В = А + В - А & В
А & В = А + В - А | В
А & В = 650 + 230 - 740 = 140
m, n, nok, t, i: longint;
begin
Write('Введите через пробел два целых положительных числа- ');
Readln(m, n);
{Сначала ищем НОК - наименьшее общее кратное}
if m = n then begin
nok := m;
t := m * m
end
else begin
t := m * n;
repeat
if m > n then m := m - n else n := n - m
until m = n;
nok := t div m
end;
{Теперь умножаем НОК на числа натурального ряда,
пока не дойдем до величины t=m*n}
if nok = t then Writeln('Требуемых чисел нет')
else begin
i := 1;
while (nok * i < t) do
begin
Write(nok * i, ' ');
i := i + 1
end
end
end.
Тестовое решение:
Введите через пробел два целых положительных числа- 8 120
120 240 360 480 600 720 840
Введите через пробел два целых положительных числа- 35 620
4340 8680 13020 17360
Введите через пробел два целых положительных числа- 7 13
Требуемых чисел нет