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

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

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

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