Даны два числа m и n. заменить большие число на меньшее и вывести эти числа на экран.
Program ddd; uses crt; var m, n, i:integer; begin readln(m, n); if m>n then m:=n else n:=m; writeln(m, n); readln; end.
так выведется 2 одиннаковых числа
да. в задаче не сказано поменять их местами. сказано заменить большее на меньшее
ну а смысл оба числа тогда выводить?
черт знает. ваш вариант тоже подходит.
так я и про ваше решение ничегг не говорю, просто я думал, чтотнадо заменить большее на меньшее и наоборот
С =m m=n n=c произойдет обмен m и n