Question

даны целые числа m и n если числа не равны,то заменить каждое из них одним и тем же числом,равном большему из исходных,а если равны,то заменить числа нулями в паскале

Answer 1

Var m,n:integer;
begin
readln(m,n);
if m<>n then
begin
if m>n then
n:=m
else
m:=n;
end
else
begin
m:=0;
n:=0;
end;
writeln(m,'  ',n);
end.

Answer 2

Замена чисел в паскале

Если я правильно понял ваш вопрос, вам нужно заменить числа `m` и `n` в треугольнике Паскаля определенным образом. Если `m` и `n` не равны, то каждое из них заменяется на большее из двух исходных чисел. Если `m` и `n` равны, то оба числа заменяются на нули.

Треугольник Паскаля - это числовой треугольник, в котором каждое число равно сумме двух чисел над ним. Верхний ряд треугольника состоит только из единиц, а каждое число в нижнем ряду равно номеру столбца.

Для решения этой задачи, мы можем использовать двумерный массив для представления треугольника Паскаля. Затем мы проверяем, равны ли `m` и `n`. Если они не равны, мы заменяем каждое число на максимум из `m` и `n`. Если они равны, мы заменяем оба числа на ноль.

Вот пример кода на языке Python, который реализует эту логику:

def replace_numbers(m, n):
    # Создаем треугольник Паскаля
    pascal = [[1] * (i + 1) for i in range(max(m, n) + 1)]

# Проверяем, равны ли m и n
    if m != n:
        # Заменяем каждое число на максимум из m и n
        for i in range(len(pascal)):
            for j in range(len(pascal[i])):
                pascal[i][j] = max(m, n)
    else:
        # Заменяем оба числа на ноль
        for i in range(len(pascal)):
            for j in range(len(pascal[i])):
                pascal[i][j] = 0

return pascal

Вы можете вызвать эту функцию, передав значения `m` и `n`, и она вернет измененный треугольник Паскаля.