ПРОГРАММИРОВАНИЕ (паскаль) помогите срочно пожалуйстаааа даны целые числа m и n если числа не равны,то заменить каждое из них одним и тем же числом,равном большему из исходных,а если равны,то
заменить числа нулями
// 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
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
