Опубликовано 13.06.2017 по предмету Другие предметы от Гость >> <<

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

Ответ оставил Гость

var m,n,mx:integer;
begin
writeln(Введите 2 целых числа);
read(m,n);
if m=n then write(Числа равны)
else
begin
writeln(Числа не равны);
if m>n then mx:=m else mx:=n;
m:=mx;
n:=mx;
write(m=,m, n=,n)
end;
end.