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

Question

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.