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

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

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

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