ПРОГРАММИРОВАНИЕ помогите срочноооо даны целые числа m и n если числа не равны,то...

Question

ПРОГРАММИРОВАНИЕ помогите срочноооо даны целые числа m и n если числа не равны,то заменить каждое из них одним и тем же числом,равном большему из исходных,а если равны,то
заменить числа нулями

Comments

какой язык?

---

паскальнужно пограмму написть

---

ничего)

---

а дадада

---

там 

---

стой погоди

---

сейчас всё будет : D

Answer 1

Var m,n:integer;
begin
writeln('введите число m ');
readln(m);
writeln('введите число n ');
readln(n);
if (m<>n) then
   begin
    if (m   else begin n:=m; writeln(m,' ,',n); end;
  end
else begin n:=0;m:=0; writeln(m,' ,',n);
end;
end.

Comments

покажи тесты

---

вводимые  значения : 3,123 вывод 123,123

---

вводимые  значения : 3,3 вывод 0,0

---

вводимые  значения : 1,2 вывод 2,2

---

ок, 1 сек

---

я хз как

---

нужно самим придумать

---

плеаз помогииии мнеее

---

а ты знаешь как делать тесты7???????

---

вот так