Question

Даны целые числа M и N. Если числа не равны, то заменить первое число нулем, а второе – единицей, а если равны, удвоить значение каждого из чисел. (Написать программу в паскале) Нужна помощь ОЧЕНЬ СРОЧНО, прошу!

Answer 1

// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
var
  m,n:integer;
begin
  Write('Введите М и N: '); Read(m,n);
  if m<>n then begin m:=0; n:=1 end
  else begin m:=2*m; n:=2*n end;
  Writeln('m=',m,', n=',n)
end.

Тестовые решения:
Введите М и N: 5 7
m=0, n=1

Введите М и N: 4 4
m=8, n=8

Answer 2

Привет! Я могу помочь тебе написать программу на Паскале, которая выполняет указанные действия с числами M и N. Вот код программы:

program ChangeNumbers;
var
  M, N: integer;
begin
  writeln('Введите число M:');
  readln(M);
  writeln('Введите число N:');
  readln(N);
  
  if M <> N then
  begin
    M := 0;
    N := 1;
  end
  else
  begin
    M := M * 2;
    N := N * 2;
  end;
  
  writeln('Измененные значения чисел:');
  writeln('M = ', M);
  writeln('N = ', N);
end.

Эта программа сначала запрашивает у пользователя значения чисел M и N. Затем она проверяет, равны ли эти числа. Если они не равны, то первое число заменяется на 0, а второе число на 1. Если числа равны, то значения каждого из них удваиваются. В конце программа выводит измененные значения чисел M и N.

Надеюсь, это поможет! Если у тебя возникнут еще вопросы, не стесняйся задавать.