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

Question

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

070607 · Answer

Var m,n:integer;beginreadln(m,n);if m n thenbeginif m n thenn:=melsem:=n;endelsebeginm:=0;n:=0;end;writeln(m,   ,n);end....

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

Популярные вопросы