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

Ответы 1

  • // PascalABC.NET 3.0, сборка 1139 от 10.01.2016begin  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= 27n= 39m=39, n=39m= -20n= -20m=0, n=0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years