profile
Опубликовано 6 лет назад по предмету Информатика от Lhjg

ПРОГРАММИРОВАНИЕ (паскаль) помогите срочно пожалуйстаааа даны целые числа m и n если числа не равны,то заменить каждое из них одним и тем же числом,равном большему из исходных,а если равны,то
заменить числа нулями

  1. Ответ
    Ответ дан Аккаунт удален
    // PascalABC.NET 3.0, сборка 1139 от 10.01.2016
    begin
      var m:=ReadInteger('m=');
      var n:=ReadInteger('n=');
      if m<>n then m:=max(m,n) else m:=0;
      n:=m;
      WritelnFormat('m={0}, n={1}',m,n)
    end.

    Тестовое решение:
    m= 27
    n= 39
    m=39, n=39

    m= -20
    n= -20
    m=0, n=0
Самые новые вопросы