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

Question

Информатика

Генрих

26 ноября, 14:47

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

+3

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