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

Question

Информатика

Антонидка

10 июля, 10:14

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

+5

Ответы (1)

Знаете ответ?

Мелетьюшка · Answer 1

Var m, n:integer;

begin

readln (m, n) ;

if mn then

begin

if m>n then

n:=m

else

m:=n;

end

else

begin

m:=0;

n:=0;

end;

writeln (m,' ', n) ;

end.