Даны целые числа m и n если числа не равны,то поменять

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

Задать свой вопрос
1 ответ
program chisla; var m, n:integer; begin readln(m,n); if m=n then begin m:=0; n:=0; end; if mgt;n then n:=m else m:=n; writeln(m, , n); end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт