Question

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

Answer 1

Var m,n:integer;
begin
writeln('введите число m ');
readln(m);
writeln('введите число n ');
readln(n);
if (m<>n) then
   begin
    if (m<n) then begin m:=n; writeln(m,' ,',n); end
   else begin n:=m; writeln(m,' ,',n); end;
  end
else begin n:=0;m:=0; writeln(m,' ,',n);
end;
end.