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

Question

Информатика

Ольгуня

21 октября, 13:08

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

+2

Ответы (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.